看看破解工作表密码有多简单，只需两句

baomaboy

这个可不算新发现！很老的帖子了，而且就这一句的话不完美，还要配合DrawingObjects:=True
配合=false
总共4句。刚才一时没搜到以前那帖子。

贝妮

原帖由 baomaboy 于 2011-6-13 11:34 发表
这个可不算新发现！很老的帖子了，而且就这一句的话不完美，还要配合DrawingObjects:=True
配合=false
总共4句。刚才一时没搜到以前那帖子。

高，下面加密后就破不了，我就是找不到原因。也该加分。
Public Sub Test()
Sheet1.Protect "123", False
End Sub

wpxxsyzx

有老帖子吗？我想看，现在就可以解除，还配合什么呢，也许还有其他限制。找到老帖地址告诉我！！！

xsxyj005

2007下也通过。总共二句代码，复制粘贴后，要按顺序运行第一、二句话，就OK了

Kelidai

有时候就是这么简单。什么密码都是浮云。

leroy

这两句代码看起来不是万能的，正在进一步验证中。。。。。

baomaboy

两年前的帖子了，
那个贴是去年看的，忘了收藏，eh刚才还是没搜到，标题关键字没记清楚，用DrawingObjects:=True,为关键字在百度搜到一个你先看看吧。
作者：冰麟轻武，如果在加上他发现2、3年才共享出来，那就是4、5年前的事了。

http://blog.sina.com.cn/s/blog_4bba2d4f0100fpbp.html

baomaboy

本来就不是万能的，即使是下面4句连起来也不是100%成功，至少我遇到过两次不成功案例了。

1. 
   
2. ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
   
3.         , AllowFiltering:=True, AllowUsingPivotTables:=True
   
4.     ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
   
5.         False, AllowFiltering:=True, AllowUsingPivotTables:=True
   
6.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
   
7.         False, AllowFiltering:=True, AllowUsingPivotTables:=True
   
8.     ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
   
9.         True, AllowFiltering:=True, AllowUsingPivotTables:=True
   
10.     ActiveSheet.Unprotect
    

复制代码

baomaboy

另外补充一点，当弹出密码输入框时，一定要点取消，点确定就错了！这一点很重要！！！

wpxxsyzx

谢了，我先看看，为什么要四句，是不是只这两句某些情况下回失效
看了，也没个说法，为什么要四句呢？