excel清除密码宏命令

Sub 破解工作表密码()

    '运行本代码后跳出的输入密码对话框里,点击取消即可删除密码

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

    ActiveSheet.Unprotect

    MsgBox "当前工作表密码已移除"

End Sub