【VBA】ブックを最終版にする

VBAで
 ・ブックを最終版
にできます!

ブックを最終版にした状態

最終版にすることで
 ・不用意に内容を変更されてしまう事故を防止
できます!

PR

VBAコード

ここでは例として、
 ・VBAを実行させているブックを
 ・最終版にする
VBAコードを記載します。

Sub sample()

    '確認メッセージを非表示
    Application.DisplayAlerts = False
            
    '最終版にする
    ThisWorkbook.Final = True
    
    '確認メッセージを表示
    Application.DisplayAlerts = True

End Sub

「確認メッセージを表示」にしています(4行目)。

表示にすることで、以下のメッセージを表示させないようにしています。
表示させないようにすることで、VBAが一時停止してしまうことを防止しています。

メッセージ①
メッセージ①
メッセージ②
メッセージ②

最後に「確認メッセージを表示」にしています(10行目)。
※元に戻しています。

「ThisWorkbook」により、「実行中のブックを表すWorkbookオブジェクト」を取得します(7行目)。

「Workbook オブジェクト」の「Final」プロパティに「True」を指定することで、最終版になります(7行目)。
※「False」を指定することで解除できます。

PR

実行結果

ブックを最終版にできました。

実行結果
実行結果


「編集ボタン」をクリックしない限り、編集できないようになっています。

PR

参考

上記のVBAコードで使用した以下については、公式サイトをご確認ください。

●「Workbook オブジェクト」の「Final」プロパティ


●「ThisWorkbook」について
「ThisWorkbook」は、「Applicationオブジェクト」の「ThisWorkbook」プロパティを省略した記述です。

タイトルとURLをコピーしました