Excel Tips ［その他］

ワークシートの保護・保護解除

書式

シートの保護
対象のシート.Protect

シート保護の解除
対象のシート.Unprotect

ワークシートを保護する

Sub ProtectSample_01()

    Dim sheetXXX            As Worksheet
    
    Set sheetXXX = Worksheets("Sheet1")
    
    sheetXXX.Protect

End Sub

ワークシートの保護を解除する

Sub ProtectSample_02()

    Dim sheetXXX            As Worksheet
    
    
    Set sheetXXX = Worksheets("Sheet1")
    
    sheetXXX.Unprotect

End Sub

ワークシートをパスワード付きで保護する

Sub ProtectSample_03()

    Dim sheetXXX            As Worksheet
    
    Set sheetXXX = Worksheets("Sheet1")
    
    sheetXXX.Protect Password:="Password"
    
End Sub

パスワードで保護されたシートを解除する。

Sub ProtectSample_04()

    Dim sheetXXX            As Worksheet
    
    Set sheetXXX = Worksheets("Sheet1")
    
    sheetXXX.Unprotect Password:="Password"
    
End Sub