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