在excel中隐藏工作表比较方便，选取多个工作表后右键菜单点隐藏即可

但取消工作表隐藏就非常麻烦了

需要一个一个的取消

今天分享一个可以一键取消和隐藏所有工作表的方法。

效果演示：

按ctrl+shift+Q隐藏所有工作表（指定不隐藏的除外）

按Ctrl+Q取消所有工作表

这个快捷键很好用，但…不是Excel自带的，而是需要我们手工添加。如果你也想使用，就一起来学习吧。

一、设置和使用

步骤1 粘贴代码

复制下面的代码，excel工作表标签右键菜单中点“查看代码” ，会打开一个叫【visual baisc…】的窗口，在这个窗口中点击插入模块，然后把代码复制粘贴到右边的空白窗口中。最后把文件保存为”Excel启用宏的工作簿“。

代码：

Sub 取消隐藏()

For x = 1 To Sheets.Count

If Sheets(x).Name <> “总表” Then

Sheets(x).Visible = -1

End If

Next x

End Sub

Sub 隐藏()

For x = 1 To Sheets.Count

If Sheets(x).Name <> “总表” Then

Sheets(x).Visible = 0

End If

Next x

End Sub

注：如果你有多个工作表不需要隐藏，可以把

If Sheets(x).Name <> “总表” Then

替换为

If InStr(“总表-表1-表2”, Sheets(x).Name) = 0 Then

（表之间用–连接放在引号里,可以连接任意多个表名）

步骤2：设置快捷键

按alt+f8打开宏窗口 – 选取“取消隐藏” – 选项 – 输入“小写”的q，确定后再选“隐藏”，输入大写的Q。

(当然你也可以设置其他的字母作为快捷键)

二、删除和修改

1、删除

按上面方法打开visible basic窗口，在左上的“工程”窗口选取模块1”模块1‘，如果删除就点右键的“移除模块” 。

2、修改

双击模块1，然后在右边的窗口中更改代码。关闭窗口。