excel2003---------------巧用VBA破除锁定密码
巧用VBA破除锁定密码!excel2003的一个小BUG。
步骤如下:
1,打开一个有锁定密码的excel
2,点击文件,新建一个空白页面
3,点击新打开excel的工具-》宏-》录制宏,然后马上结束,这样就等到一个空的宏
4,点击alt+f11,打开宏编辑器,找到刚才的新宏,然后写如代码
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没有测试
PS:破解的时候最多有可能弹出3次要求输入密码的地方,都点取消。1秒不到再试试,是不是没有密码了?
适用于excel2003 ,2007没有测试