〔原创〕[10-7-21更新破解原理]巧用VBA破除锁定密码！excel2003的一个小BUG。

华草宝木 · 发表于 2010-2-6 10:33

楼主辛苦了。谢谢分享，期等发现更多的密秘。

lyb16899 · 发表于 2010-2-6 15:01

经典。。。。。。。。。。

gege2009 · 发表于 2010-2-7 14:15

不行啊，提示：无效外部过程

Fangfangyy · 发表于 2010-2-7 14:41

之前领导锁定了一份文件想看看他的公式都看不到，早点得到楼主的分享就好了！

双手合十 · 发表于 2010-2-7 20:14

谢谢分享！

fchydd · 发表于 2010-2-8 14:39

虽路过，但值得借鉴

wubaiwan_111 · 发表于 2010-2-8 15:45

完全看不懂是什么意思，但是依然佩服楼主

dayounger · 发表于 2010-2-8 16:44

好贴，收藏了，谢谢楼主分享。

vivianexcel · 发表于 2010-2-8 18:37

试了，很好用，谢谢分享

xueyuan · 发表于 2010-2-8 19:55

原帖由 jy02305022 于 2009-11-28 09:06 发表
〔原创〕巧用VBA破除锁定密码！excel2003的一个小BUG。
原理我就不多说了，看得懂的可以自己看下，大致就是微软技术员犯下的一个小失误。
因为是原创，转载的时候保留作者，谢谢。
作者：冰麟轻武发布论坛club.excelhome.net  论坛ID：jy02305022

网上破除锁定密码的VBA也有，不过代码很长，而且过程很慢
我做的这个是我一次写vba的时候无意中发现的，发现了2，3年了
今天来分享一下
步骤如下，
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我没有安装不知道时候可以用，家里有安装的人帮我测试一下谢谢
...

收藏一下。谢谢楼主

		自动登录	找回密码
密码			免费注册

[分享] 〔原创〕[10-7-21更新破解原理]巧用VBA破除锁定密码！excel2003的一个小BUG。