Excel VBA取消全部隐藏的工作表

1、首先打开数据表格需要将sheet1以外的表格进行全部隐藏，如下图所示：

2、然后按alt+f11快捷键，打开VBA代码界面，如下图所示：

3、插入模块，如下图所示：

4、然后在新的模块里输入如下代码：Sub 打开全部隐藏工作表()Dim i As 诔罨租磊IntegerFor i = 1 To Sheets.Count Sh髫潋啜缅eets(i).Visible = TrueNext iEnd Sub，如下图所示：

5、回到excel界面快捷键alt+f8打开宏执行对话框，如下图所示：

6、找到对应的命令，单击执行按钮，如下图所示：

7、即可看到隐藏的图表，全部显示出来，如下图所示：