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

jy02305022 · 发表于 2010-1-16 17:42

去年帖子今天火哈哈

xibeiakang · 发表于 2010-1-16 18:49

噢。。见过类似的，不过没见过代码这么少的

ammyc · 发表于 2010-1-16 20:37

才学VBA，请解释一下代码。

7433518 · 发表于 2010-1-16 21:17

收藏了，谢谢楼主共享

xq1234 · 发表于 2010-1-16 23:51

叫我说什么好,

不错,也得顶顶

bg7kqu · 发表于 2010-1-17 00:01

好恐怖，这么简单就破了

wfmqh · 发表于 2010-1-17 01:26

很强!
〔原创〕巧用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我没有安装不知道时候可以用，家里有安装的人帮我测试一下谢谢

yykxiaoyang · 发表于 2010-1-17 01:48

牛,你真牛,佩服,再不怕忘了密码!

runshui · 发表于 2010-1-17 18:59

学习

yushufang · 发表于 2010-1-17 19:14

楼上的各位老师,上述破解代码是破解工作薄密码的吗?有密码的工作薄,我无法打开，不能进入，请老师指点，谢谢！！

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

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