Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
58941 / 76732 ←次へ　｜　前へ→
【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

そのシートを選択する方法を教えて下さい宜しくお願いします
1 hits
▼ 【22510】複数シートの保護・解除 小池知博 05/2/23(水) 9:01 質問≪
【22514】Re:複数シートの保護・解除 G-Luck 05/2/23(水) 10:51 回答
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
58941 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free