Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10316 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22510】複数シートの保護・解除 小池知博 05/2/23(水) 9:01 質問[未読]
【22514】Re:複数シートの保護・解除 G-Luck 05/2/23(水) 10:51 回答[未読]
【22510】複数シートの保護・解除
質問  小池知博 E-MAIL  - 05/2/23(水) 9:01 -
引用なし
パスワード
   おはようございます 昨日は(かみちゃん・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

そのシートを選択する方法を教えて下さい宜しくお願いします
【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さんの方法があります。

後、同じ質問ならば、前の質問の後につけたほうが、回答が得られやすいですよ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10316 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free