VBA ブックを保存禁止にする

実務では、重要な資料を他の人に保存させない場面があったりします。今日は、保存パスワードを分かる人でない限り、「名前をつけて保存」や「上書き保存」を制限する方法を見ていきましょう。

ブックを保存禁止にする

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
’　ThisWorkbook のなかに貼り付けること（標準プロシージャではない、ご注意ください）


    Dim myPass As Variant
    myPass = InputBox("保存用パスワードを入れてください")
    
    If myPass = "yokbali168" Then
        
        '　保存禁止のプロセスを終了する
        Exit Sub
    End If
    
    Cancel = True
    MsgBox "このファイルは保存禁止です。", 16

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事