ActiveSheet.Protect UserInterfaceOnly:=Trueの書き場所は

こんにちは
よろしくおねがいします
下記マクロはどこに書いたら良いでしょうか
ブック中にシートがたくさんあります
各シートにはシートモジュールもあります

ActiveSheet.Protect UserInterfaceOnly:=True

質問者からの補足コメント

• すぐに教えていただいてありがとうございます
  ThisWorkbookのPrivate Sub Workbook_open()にシート名の分だけ
  下記のように全部書けばいいですか
  Sheets("早見表").Protect UserInterfaceOnly:=True
  Sheets("入力").Protect UserInterfaceOnly:=True
  Sheets("登録").Protect UserInterfaceOnly:=True

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/11/21 13:17

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2017/11/21 13:45

個人的に行っているのは、メンテなどでシートの保護を解除したり、また保護を掛けたりするのが面倒なので以下のようにしています。

--------------------------------------------------------------------------------
☆ 保護したいシートに
･･････････････････････････････････････････････････････････････････････
Private Sub Worksheet_Activate()
If 保護無 Then
ActiveSheet.Unprotect
Else
ActiveSheet.Protect UserInterfaceOnly:=True
End If
End Sub
--------------------------------------------------------------------------------

--------------------------------------------------------------------------------
☆ 標準モジュールに
･･････････････････････････････････････････････････････････････････････
Option Explicit
Public 保護無 As Boolean
･･････････････････････････････････････････････････････････････････････
Sub モード切替()
If 保護無 Then
If MsgBox("保護状態にしますか？", vbDefaultButton1 + vbYesNo) = vbYes Then
ActiveSheet.Protect UserInterfaceOnly:=True
保護無 = False
End If
Else
If MsgBox("保護を解除しますか？", vbDefaultButton2 + vbYesNo) = vbYes Then
ActiveSheet.Unprotect
保護無 = True
End If
End If
End Sub
--------------------------------------------------------------------------------

こうすると「保護無」を「True」にすれば自由に書き換えが出来るようになるし、起動時には「保護無」が「False」になるので保護のかけ忘れも減ります。

この回答へのお礼

GooUserラックさん、ありがとうございます
たいへん役立つマクロを教えていただきました
使わせていただきます

前回もイベント割り込みの再開と停止教えていただきました

それと、複数セルの選択禁止で教えていただいたマクロですが
列の再表示で２列選択できなくなってしまうので、GooUserラックさんに
最初に教えていただいたマクロを使わせていただいています

ありがとうございました

お礼日時：2017/11/21 14:00

No.1 回答者： GooUserラック 回答日時： 2017/11/21 13:02

ブックを開いたりシートが保護が必要なシートに切り替わった時の最初にです。

ただ何度も指定するのも何なのでブックを開いたときに必要なシートをまとめて
「Sheets("Sheet1").Protect UserInterfaceOnly:=True」
のように指定した方が良いと思います。