简单实用:不用破解密码保护工作簿,四句话将所有隐藏表显示出来

『淡然一笑』 · 发表于 2012-4-23 15:16

代码怎么使用啊？

xjg811 · 发表于 2012-4-23 15:55

我很佩服小Fisher,他的帖子我认真学习过,有些不大懂.
我记得楼主的办法,小Fisher发表过.
不排除所谓思维共振,英雄所见略同.

simen · 发表于 2014-2-13 12:52

Sub test()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub
这段代码对于已经加了工作簿密码的文件，确实是可以复制过来的，但前提是隐藏的工作是一般隐藏，如果是深度隐藏的工作表是搞不出来的。

sunny_8848 · 发表于 2014-2-13 14:44

学习了,谢谢

zhengyujun · 发表于 2014-12-17 21:42

不错，实用！

yjh_512 · 发表于 2016-3-17 12:50

正式我需要的，謝了！

386026398 · 发表于 2019-5-18 15:31

对于深度隐藏的表不起作用

q20010303 · 发表于 2021-1-11 09:49

点赞，复制出一个工作薄

xvjiex · 发表于 2021-4-6 09:55

感谢楼主分享：四句话将所有隐藏表显示出来。

OKJSJSF · 发表于 2022-4-13 08:03

保护主要只是防止误操作破坏格式而已。

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

[分享] 简单实用:不用破解密码保护工作簿,四句话将所有隐藏表显示出来