批量取消隐藏工作表

1、首先ALT+F11，打开VBA编辑器

2、在工程窗口中，选中当前工作薄，点击“插入”菜单栏，插入“模块”

3、将下述代码拷贝到新插入的模块1中： 

4、将鼠标放在代码内的任何位置，单击工具栏上的运行按钮或F5，取消隐藏瞬间完成。