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

按键盘上的alt+f11，调出vbe对话框，然后双击左面的任何一个工作表的名称，然后将下列代码粘贴进去。然后点击工具栏上的绿色按钮运行一次即可。
sub
unhide()
for
i
=
1
to
sheets.count
sheets(i).visible
=
true
next
i
end
sub
如果我的回答没能帮助您，请继续追问。

显示隐藏工作表的宏操作：按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
稍过一会儿，我再查找一下其他的资料，看能不能解决。