Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58943 / 76738 ←次へ | 前へ→

【22514】Re:複数シートの保護・解除
回答  G-Luck  - 05/2/23(水) 10:51 -

引用なし
パスワード
   ▼小池知博 さん:
>おはようございます 昨日は(かみちゃん・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さんの方法があります。

後、同じ質問ならば、前の質問の後につけたほうが、回答が得られやすいですよ。

0 hits

【22510】複数シートの保護・解除 小池知博 05/2/23(水) 9:01 質問
【22514】Re:複数シートの保護・解除 G-Luck 05/2/23(水) 10:51 回答

58943 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free