VBAで
・ブックを最終版
にできます！
最終版にすることで
・不用意に内容を変更されてしまう事故を防止
できます！
VBAコード
ここでは例として、
・VBAを実行させているブックを
・最終版にする
VBAコードを記載します。
Sub sample()
'確認メッセージを非表示
Application.DisplayAlerts = False
'最終版にする
ThisWorkbook.Final = True
'確認メッセージを表示
Application.DisplayAlerts = True
End Sub
「確認メッセージを非表示」にしています(4行目)。
非表示にすることで、以下のメッセージを表示させないようにしています。
表示させないようにすることで、VBAが一時停止してしまうことを防止しています。
最後に「確認メッセージを表示」にしています(10行目)。
※元に戻しています。
実行結果
ブックを最終版にできました。
「編集ボタン」をクリックしない限り、編集できないようになっています。
参考
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●「Workbook オブジェクト」の「Final」プロパティ
●「ThisWorkbook」について
「ThisWorkbook」は、「Applicationオブジェクト」の「ThisWorkbook」プロパティを省略した記述です。
