ExcelVBA パスワードでワークブックやシートを保護して制限する方法

以下のようなシーンで利用されます。

1.シートを編集できる人を制限したい。

2.機密情報を含むワークブックやシートを開ける人を制限したい。

3.誤って重要なデータが変更されることを防ぎたい。

Option Explicit

Sub ProtectSheetWithPassword()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 保護したいシート名を指定
    
    ' シートをパスワードで保護
    ws.Protect Password:="mypassword"
    
    MsgBox "シートが保護されました。"
End Sub

シート保護を解除する場合は以下のコードを使用します。

Option Explicit

Sub UnprotectSheetWithPassword()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 保護解除したいシート名を指定
    
    ' パスワードを使って保護を解除
    ws.Unprotect Password:="mypassword"
    
    MsgBox "シート保護が解除されました。"
End Sub

データを安全に保護し、特定の人のみが操作できるように制限できます。