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