1、打开设置工作表保护的工作薄,选择有密码保护的工作表,如Sheet1,右键\查看代码

2、然后,EXCEL自动弹出VBA 窗口

3、将下列代码复制到代码窗口,按F5运行,即可解除密码
Sub 破解()
ActiveSheet.Protect AllowFiltering:=True
ActiveSheet.Unprotect
End Sub

4、如果此工作薄的每个工作表都设有工作表保护,可以稍微修改一下程序,加一个循环就可以了!
Sub 破解增强版()
dim ws as worksheet
For Each ws In Worksheets
With ws
.Protect AllowFiltering:=True
.Unprotect
End With
Next
End Sub
