ExcelVBA シートにパスワードを設定する・パスワードの解除

■パスワード設定

Sub setPassword()
    ActiveSheet.Protect Password:="1234"
End Sub

■パスワード解除

Sub releasePassword()
    ActiveSheet.Unprotect Password:="1234"
End Sub