『 动画解读 』

对于设置了工作表密码的工作簿，打开后，具体操作步骤如下：

Step-01：通过菜单【开发工具】-【Visual Basic】进入VBA编辑界面

Step-02：在VBA编辑窗口的【立即窗口】中逐步执行以下代码（输完一句回车后再输入另一句并回车其中sheet1为需要破解密码的工作表的名称）

sheet1.Protect AllowFiltering:=true

sheet1.unProtect

逐步执行这两行代码后，工作表的密码将被解除！！！

如果打开VBA编辑窗口时没有立即窗口，可以通过菜单【视图】-【立即窗口】调出来，如下图所示：

『 扩展应用 』

如果需要批量解除的，可以自行加入循环控制语句，写成一个过程。代码参考如下（将代码复制放在ThisWorkbook下，然后运行）：

Sub clsWkShtPwd()

Dim sht As Worksheet

For Each sht In Worksheets

sht.Protect AllowFiltering:=True

sht.unprotect

Next

End Sub

在此再次感谢大神们的分享！同时，一门技术是好是坏，全凭个人掌握，用于益处是为好……