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

hzhb14796 · 发表于 2011-6-14 09:23

我打不开excel home 论坛了，一打开就显示下面内容，请问是怎么回事？？？？？？
您的网站未备案，请登入我公司备案系统http://customer.srt.cn/beian查看备案流程，前来办理网站备案手续

zzmxy · 发表于 2011-6-14 09:33

原帖由 scrth 于 2011-6-14 00:05 发表
你点到标签上, 右键, 复制新表, 表里的vba工程密码就取消了,就可以看里面的程序了

真有此事？？不会吧~~~回去试一下！！

cbtaja · 发表于 2011-6-14 09:55

打开网页老是出错！
也出现与91楼相似情况。。。。。
能打开论坛主页（需要不停点击收藏的网址），但是打不开其中的链接。。。。。
请管理员查一查。。。。

leroy · 发表于 2011-6-14 10:16

破解本工作簿所有工作表密码，遇到弹出窗口即点击“取消”

Sub test()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
With sht
.Protect AllowFiltering:=True
.Protect , 0, 1, 0, AllowFiltering:=True
.Protect , 1, 1, 0, AllowFiltering:=True
.Protect , 0, 1, 1, AllowFiltering:=True
.Unprotect
End With
Next
End Sub

复制代码

请各位验证并提供反馈，谢谢！

[ 本帖最后由 leroy 于 2011-6-14 10:22 编辑 ]

风鹏 · 发表于 2011-6-14 10:30

太强了！谢谢楼主分享

qhllqhll · 发表于 2011-6-14 10:59

原帖由 leroy 于 2011-6-14 10:16 发表
破解本工作簿所有工作表密码，遇到弹出窗口即点击“取消”
Sub test()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
With sht
.Protect AllowFiltering:=True
...

非常好顶顶
再问一个：能否一次保护所有工作表的代码啊？
谢谢

[ 本帖最后由 qhllqhll 于 2011-6-14 11:08 编辑 ]

baomaboy · 发表于 2011-6-14 12:17

原帖由 leroy 于 2011-6-14 10:16 发表
破解本工作簿所有工作表密码，遇到弹出窗口即点击“取消”
Sub test()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
With sht
.Protect AllowFiltering:=True
...

1和0就是true和false一个道理。
附件里两个表都不能破。

好望之角 · 发表于 2011-6-14 12:20

一个字：妙！

hejinqian · 发表于 2011-6-14 12:28

怎么我的不行呢~

leroy · 发表于 2011-6-14 13:01

是呵，不能破。

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

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

回复 97楼 baomaboy 的帖子