EXCEL表格使用VBA一键隐藏/取消隐藏所有工作应用技巧

日常工作中，有没有遇到过老板转发给你一份Excel表格文件，其中很多个工作表被隐藏了，想要查看其中隐藏工作表中的内容时，你是否还在一个一个取消隐藏，本篇介绍一键取消隐藏/隐藏所有工作表应用技巧。

如下图 原始工作簿中星期2到星期7的6张工作表是隐藏状态，接下来演示如何一键取消所有工作表的隐藏状态。

代码如下，直接复制粘贴使用。

Sub 取消隐藏()

Dim i

For i = 1 To Sheets.Count

If Sheets(i).Name <> “星期1” Then

Sheets(i).Visible = 1

End If

Next

End Sub

接着返回工作表界面，依次选择【开发工具】选项卡，在*控件*分组中单击*插入*选项下的倒三角箭头，在菜单列表中选择第一个 按钮。

接着鼠标移动至任意单元格，单击鼠标左键，弹出指定宏对话框，单击*ThisWorkbook取消隐藏*宏，最后单击*确认*按钮。

单击*取消隐藏*按钮，就可以一键取消所有隐藏状态的工作表。

一键批量隐藏工作表时，只需要将代码中Sheets(i).Visible = 1更改为Sheets(i).Visible = 0，将其命名为隐藏。

在【开发工具】选项卡插入按钮（操作步骤和上面一致）或使用插入一张图片/图形来指定宏都可以，单击*隐藏*按钮此时就可以一键隐藏出星期1外的所有工作表。