破解Excel锁定工作表密码

破解Excel工作表保护密码的方法。
已在Excel2003环境测试通过。
步骤如下：
1.打开一个有工作表锁定密码的Excel文件。
2.点击Alt＋F11，打开宏编辑器，执行：插入→模块，将下面代码复制进去：

Sub pjmm()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Unprotect
End Sub

3.将光标移到上面代码中的任意位置，执行：运行→运行子过程。
OK，现在你去看看，工作表的保护密码是不是溜走了?