Excel VBA 保護・保護解除を切り替える

Protect・Unprotect

Protectでワークシートを保護し、変更できないようにする
パスワードは大文字と小文字が区別され、省略するとパスワードの使用なしで保護・解除できる
Unprotectで保護を解除する

Usage

Sub sample_Protect()

    Dim ws As Worksheet
    Set ws = Worksheets("sheet6")

    Dim myPassword As String
    myPassword = "Y6dh!et5"

    ' 保護
    ws.Protect Password:=myPassword

     ' 保護の解除
     ' ws.Unprotect = myPassword

End Sub

Reference

Worksheet.Protect メソッド (Excel)
Worksheet.Unprotect メソッド (Excel)