excel中怎样批量取消隐藏工作表？

Answer 1

在工作表标签上单击右键
查找代码
代码窗口粘贴下面的VBA代码
sub 取消隐藏
for each sh in worksheets
sh.visible=true
next
end sub
然后按F5执行代码

Answer 2

显示隐藏工作表的宏操作：按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 3

如果需要恢复隐藏的工作表多的话，一般的Excel界面操作是实现不了批量恢复的，需要借助VBA或是专门应用。以下推荐两种快速方法：

（1）可以使用VBA代码的方法恢复，打开VBE，将下列代码贴到新建的宏中，然后执行宏，隐藏的工作表就全恢复了。

Sub 恢复所有隐藏工作表()

Dim i As Integer

Application.DisplayAlerts = False

For i = Sheets.Count To 1 Step -1

If Sheets(i).Visible = False Then

Sheets(i).Delete

Else

End If 

Next i

ActiveWorkbook.Save

End Sub

（2）可以使用专门恢复隐藏工作簿的应用处理，还可以多个excel工作簿一起操作，很快。

Excel表格格式批量操作应用