excel如何批量取消隐藏的工作表

1、首先我们打开有隐藏的工作薄文件.大家会发现只有一个工作表标签SHEETS1，因为SHEETS2和SHEETS3我们以前做了隐藏

2、我按ALT+F11键进入以下界面

3、选取EXCEL对象，右键会得到图示效果

4、双击插入-模块

5、进入如图界面

6、我们见代码：

Sub qxyc()

    Dim sht As Worksheet

    For Each sht In Worksheets

           sht.Visible = xlSheetVisible

    Next

End Sub 

写入到如图界面，按F5键，在回到工作薄

7、大家会发现，我们以前隐藏的工作表回来了，效果如图：