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

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

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

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

4、然后在新的模块里输入如下代码：

Sub 打开全部隐藏工作表()

Dim i As Integer

For i = 1 To Sheets.Count

    Sheets(i).Visible = True

Next i

End Sub

，如下图所示：

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

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

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