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

ldy · 发表于 2010-1-12 01:14

很好的发现，2007一样有效。
居然藏着掖着达3年之久

asd123wy · 发表于 2010-1-12 13:05

完全看不懂，不过我想留下我的爪痕

din8881234 · 发表于 2010-1-12 16:14

学习学习！

风行无边 · 发表于 2010-1-12 16:26

留下印记~ ~~~~~~学习

qingwusigui · 发表于 2010-1-12 16:54

有个疑问，在输入密码的界面如何创建新文件？？没法点啊！

styhs · 发表于 2010-1-13 09:45

经测试，Excel2007有效，代码减少一些同样有效，且只弹出一次输入密码窗口。
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Unprotect

news30 · 发表于 2010-1-13 13:49

属于小技巧，可以参考参考

llm2046 · 发表于 2010-1-13 13:54

我想楼主说的应该是锁定表格的密码，不是整个工作簿设密码，所以是可以点文件新建的。

biaotiger1 · 发表于 2010-1-13 19:33

好强的代码
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
      ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
      ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
      ActiveSheet.Unprotect

高玉甫 · 发表于 2010-1-13 21:57

不错，谢谢您。

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

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

回复 17楼 qingwusigui 的帖子

回复 1楼 jy02305022 的帖子