如何破解Excel工作簿保护和工作表保护

1、在这个地方设置工作簿保护后，将对工作表进行删除、移动、新建、隐藏或者取消隐藏，以及工作表重命名等操作。 如果工作簿保护密码忘记了怎么办？ 右键单击工作表标签→【查看代码】，然后插入模块，复制以下代码，粘贴到代码区域：

Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub

2、点击运行按钮，出现一个去掉保护的工作簿克隆版，按Ctrl+S键，将这个工作簿保存一下就好了。

3、如何破解工作表保护。 有时我们为了防止别人修改工作表内容，会通过【审阅】→【保护工作表】来设置工作表的保护密码。

如果忘了密码，右键单击工作表标签→【查看代码】，然后插入模块，复制以下代码，粘贴到代码区域，点一下运行即可：

Sub jp()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Protect AllowFiltering:=True
sht.Unprotect
Next
End Sub