VBA～書き込みパスワードをつけてブックを保存しよう～Excel

VBAで書き込みパスワードを付けてブックを保存する場合、SaveAsメソッドの引数WriteResPasswordを設定します。

Book1.xlsxというブックが開いた状態で下のコードを実行すると、officeという書き込みパスワード付きでサンプル.xlsxという名前でブックが保存されます。

ブックを一度閉じ再度開くと書き込みパスワードの入力を要求されます。

読み取り専用ボタンをクリックするとブックを開くことはできますが、上書き保存はできません。

Sub test1()

Workbooks("Book1.xlsx").SaveAs
Filename:="C:\Users\eccen\Desktop\001\home\excel\2000-確認未\0001すぐできそう\0597-VBA-書き込みパスワードを付けて保存-Excel\サンプル.xlsx",
WriteResPassword:="office"

End Sub