excel2003---------------巧用VBA破除锁定密码

巧用VBA破除锁定密码！excel2003的一个小BUG。

步骤如下：

1，打开一个有锁定密码的excel
2，点击文件，新建一个空白页面
3，点击新打开excel的工具－》宏－》录制宏，然后马上结束，这样就等到一个空的宏
4，点击alt＋f11，打开宏编辑器，找到刚才的新宏，然后写如代码

    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

5，ok返回有锁定的表格，点击alt＋f8运行宏 如果看不见，就在位置的地方选择“所有打开的工作簿”

PS:破解的时候最多有可能弹出3次要求输入密码的地方，都点取消。1秒不到再试试，是不是没有密码了？
适用于excel2003 ，2007没有测试