VBA～読み取りパスワードをつけてブックを保存しよう～Excel

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

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

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

Sub test1()

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

End Sub