Excel VBA質問箱 IV

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

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


58947 / 76738 ←次へ | 前へ→

【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

そのシートを選択する方法を教えて下さい宜しくお願いします

0 hits

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

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