一键保护工作表一键撤销工作表保护VBA

nnsea

Sub 保护工作表()
    ' 保护工作表，要求密码才能取消保护
    ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub 取消工作表保护()
    ' 取消保护工作表（需要提供正确的密码）
    ActiveSheet.Unprotect Password:="123"
End Sub