パスワードありのブックを開く【Workbooks.Open】【ExcelVBA】

パスワード付きのワークブックを開きたい

Workbooks.Openでワークブックを開く際、パスワード付きのファイルを開きたいケースがあります。Workbooks.Openで指定する際、引数に設定して開くだけです。

引数がPassword→読み取りパスワード　で　WriteResPassword→書き込みパスワードです。

パスワード付きのワークブックを開くサンプルコード

Public Sub sample()

    '■読取パスワード「1234」のsample.xlsxを「1234」入力して開く(正常動作)
    Workbooks.Open "C:\vba\sample.xlsx", Password:="1234"

    '■読取パスワード「1234」のsample.xlsxを「5678」入力して開く(異常動作)
    Workbooks.Open "C:\vba\sample.xlsx", Password:="5678"
    '→下記ポップアップが表示
    '入力したパスワードが間違っています。capslock キーの状態に注意して、大文字と小文字が正しく使われていることを確認してください。

    '■書込パスワード「1234」のsample.xlsxを「1234」入力して開く(正常動作)
    Workbooks.Open "C:\vba\sample.xlsx", WriteResPassword:="1234"

    '■書込パスワード「1234」のsample.xlsxを「5678」入力して開く(異常動作)
    Workbooks.Open "C:\vba\sample.xlsx", WriteResPassword:="5678"
    '→下記ポップアップが表示
    '入力したパスワードが間違っています。capslock キーの状態に注意して、大文字と小文字が正しく使われていることを確認してください。

End Sub

関連記事

• ワークブックを非表示で開く【Visibleプロパティ】
• ワークブックを読み取り専用で開く【Workbooks.Open】
• Workbooks.Openでインターネット上のエクセルファイルを開く
• Workbooks.Openでサーバー内のファイルを開く
• ワークブックを保護/保護解除する【Protect/Unprotectメソッド】