ExcelVba 切换保护状态

Sub ToggleWorksheetProtection()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' 检查工作表是否受到保护
    If ws.ProtectContents = True Then
        ' 如果工作表已受保护，则解除保护
        ' 这里需要提供之前设置的密码
        ws.Unprotect Password:="password"
    Else
        ' 如果工作表未受保护，则加上保护
        ' 这里使用的密码是您指定的“password”
        ws.Protect Password:="password", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub