| |
▼小池知博 さん：
>おはようございます 昨日は(かみちゃん・ponpon)より回答を頂き有難う御座いました
> 早速実行してみたのですが 思うような結果になりません再度宜しくお願いします
>
>'選択されているシートの保護を切り替える
>'保護・保護解除がトグルになっています。
>Sub ProtectChange()
> Dim sh As Object
>
> '選択したシートを列挙する
> For Each sh In ActiveWindow.SelectedSheets
> sh.Select 'そのシートを選択する
> If sh.ProtectContents = True Then 'シートが保護の時
> sh.Unprotect
> Else 'シートが保護されてない時
> sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
> End If
> Next
>End Sub
>
>そのシートを選択する方法を教えて下さい宜しくお願いします
G-Luckといいます。
Excel上で複数選択は、Ctrlを押しながら、シートを選択または
連続しているなら CtrlとShiftを押しながらPageup、PageDown（一部挙動がおかしい時有り）で出来ますよ。VBAからなら、ponponさんの方法があります。
後、同じ質問ならば、前の質問の後につけたほうが、回答が得られやすいですよ。
|
|
G-Luck
- 05/2/23(水) 10:51 -
