excel中如何批量取消隐藏的工作表？批量设置及取消工作表保护？

Question

如题。
谢谢！
谢谢 bluewhale0576 的回答。不过，您试过吗？

这个问题太难了还是太简单了?
================================================
难者不会，会者不难。
……
===========================================================
继续等待……
=================================
谢谢 QMS007 ！
批量设置及取消工作表保护怎么做呢？谢谢！
============================================
谢谢千顷云！
已进入倒计时了，哪位能解决第二个问题啊？
再次谢谢！

Answer 1

显示隐藏工作表的宏操作：按ALT+F11，点击插入菜单中的模块，在右边的代码输入框中输入如下代码，再按F5键即可全部显示。

Sub KDK()

For Each AA In Sheets
AA.Visible = True
Next

End Sub

至于批量设置及取消工作表保护的问题，在下实在见识浅薄，不能解答，因为工作表取消保护必须解决密码的问题，在下试了几次也不能解决，但是如果你的工作表如果没有设置密码保护，只是一般的保护则可按如下解决，也期望有高手能在此解决此问题，见笑。
Sub KDK()

For Each AA In Sheets
aa.Unprotect

End Sub
稍过一会儿，我再查找一下其他的资料，看能不能解决。

Answer 2

Sub WshProtect()
'批量保护工作表
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True '密码123
Next
End Sub

Sub WshUnProtect()
'批量取消保护工作表
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Unprotect "123" '密码123
Next
End Sub

Answer 3

做个宏
Sub 批量取消隐藏()
For i = 1 To 400
Sheets(i).Visible = True
Next
End Sub

Answer 4

03以前没有这个功能
我一直用程序做的。录一个宏，稍微修改就行了，很简单

Answer 5

任选表格中的一列点筛选