Excel一直到2013版，也没有提供批量取消隐藏工作表的功能，这点确实比较遗憾，今天教大家用简单的VBA语句来实现这超酷炫的取消隐藏工作表功能。
Excel文件中隐藏了N个工作表，要求在主界面表中设置分别设置“隐藏”和“取消隐藏”按钮。并实现隐藏指定工作表的功能。
步骤
1、在工作表标签右键菜单上，点“查看代码”在打开的窗口中，“插入”- “模块” – 把下面的代码粘贴到右侧的窗口中。关闭当前Visual basic窗口。
代码
Sub 隐藏()
Dim arr
Application.ScreenUpdating = False
表名 = Array(“表2”, “表4”, “表5”)
‘上句设置要隐藏的表名
Sheets(表名).Visible = 0
Sheets(“主界面”).Select
Application.ScreenUpdating = True
End Sub
Sub 取消隐藏()
Application.ScreenUpdating = False
Dim arr
For x = 1 To Sheets.Count
Sheets(x).Visible = -1
Next x
Sheets(“主界面”).Select
Application.ScreenUpdating = True
End Sub
2、在“主界面”表中开发工具 – 插入 – 表单控件 – 拖画两个按钮，并分别指定宏。
添加“开发工具”选项卡方法：
2010版:文件 – 选项 – 自定义功能区
2007版: office按钮- excel选项 – 常用 – 显示”开发工具..”
2003版：视图菜单 – 工具栏 – 选中“窗体”
3、文件另存为“启用宏的工作簿”(excel2003版略过此步)
设置OK！
如果你是新手可能看不明白上面VBA代码，不要紧，只要按步骤操作即可。不过还是建议感兴趣的同学们系统的学习一下VBA语言。VBA语言不像同学们想象的那么难，尝试下便会知道。
