【Excel VBA】ブックに2種類のパスワードを設定して保存する方法

2025年8月11日

機密情報や重要なデータを含むExcelファイルを保護するために、パスワードを設定するのは一般的なセキュリティ対策です。VBAを使えば、このパスワード設定もSaveAsメソッドの一部として自動化できます。

Excelには、目的の異なる2種類のパスワード、「読み取りパスワード」と「書き込みパスワード」があります。この記事では、それぞれのパスワードをVBAで設定する方法と、その違いを明確に解説します。

2種類のパスワードの違い

まず、2つのパスワードがどのような役割を持つのかを理解することが重要です。

種類	VBA引数	機能	ユーザーへの影響
読み取りパスワード	`Password`	ブックを開くこと自体を制限します。	パスワードを知らないと、ファイルの中身を一切見ることができません。
書き込みパスワード	`WriteResPassword`	ブックの上書き保存を制限します。	パスワードを知らない場合でも「読み取り専用」でファイルを開き、閲覧することは可能です。

Google スプレッドシートにエクスポート

VBAコードの例

SaveAsメソッドの引数にPasswordまたはWriteResPasswordを指定することで、これらの保護を適用できます。

① 読み取りパスワードを設定して保存

このパスワードを知らないと、ブックを開くことすらできなくなります。

Sub SaveWithOpenPassword()

    Dim targetBook As Workbook
    Set targetBook = ActiveWorkbook
    
    Dim openPass As String
    openPass = "opensesame" ' 読み取りパスワード
    
    ' Password引数を指定して保存
    targetBook.SaveAs _
        Filename:=ThisWorkbook.Path & "\OpenProtectedBook.xlsx", _
        Password:=openPass

    MsgBox "読み取りパスワードを設定して保存しました。"
    
End Sub

② 書き込みパスワードを設定して保存

このパスワードを知らないユーザーは、ファイルを「読み取り専用」として開くことになり、上書き保存ができなくなります。（別名保存は可能）

Sub SaveWithWritePassword()

    Dim targetBook As Workbook
    Set targetBook = ActiveWorkbook
    
    Dim writePass As String
    writePass = "edit_ok" ' 書き込みパスワード
    
    ' WriteResPassword引数を指定して保存
    targetBook.SaveAs _
        Filename:=ThisWorkbook.Path & "\WriteProtectedBook.xlsx", _
        WriteResPassword:=writePass
        
    MsgBox "書き込みパスワードを設定して保存しました。"

End Sub

③ 読み取り・書き込み両方のパスワードを設定して保存

両方の引数を同時に指定することで、二重の保護をかけることも可能です。

Sub SaveWithBothPasswords()

    Dim targetBook As Workbook
    Set targetBook = ActiveWorkbook
    
    ' 両方のパスワードを設定
    targetBook.SaveAs _
        Filename:=ThisWorkbook.Path & "\FullyProtectedBook.xlsx", _
        Password:="opensesame", _
        WriteResPassword:="edit_ok"

    MsgBox "読み取り・書き込み両方のパスワードを設定して保存しました。"
    
End Sub