平时的汇报工作中，经常会隐藏工作底稿的工作Sheet，仅显示汇报工作表。
在后续数据维护或者数据勾稽过程中，可能需要取消隐藏工作表。
如果涉及的工作表较多，一个一个手工取消隐藏的话，非常影响工作效率。
这里提供一个宏代码，可以实现一键自动取消所有隐藏的工作表。
代码如下：
Sub qxyc()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Visible = xlSheetVisible
Next
End Sub
使用方法：
- 打开Excel，在工作表页签右键，选择”查看代码“;
- 在弹出的窗口最上方菜单，依次选择”插入-模块“，复制粘贴以上代码，保存；
- 选择你要创建超链接目录的工作表，点击代码窗口顶部菜单的”运行“；
- 接下来就是见证奇迹的时刻。
-> 加入科技玩家交流群组：点击加入 注意:
1.文中二维码和链接可能带有邀请性质，请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头，拉app注册等信息，发现必小黑屋。
4.同一种信息仅发一次，多发会被删除。
5.文章中源码或APP等，无法保证其绝对安全，需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
1.文中二维码和链接可能带有邀请性质，请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头，拉app注册等信息，发现必小黑屋。
4.同一种信息仅发一次，多发会被删除。
5.文章中源码或APP等，无法保证其绝对安全，需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
本文由 @LAzySheep 发布。如若转载，请注明出处： 科技玩家 » Excel通过宏一键自动取消所有隐藏工作表
感谢分享
学到了。
谢谢分享
感谢分享
感谢分享
非常有用
mark一下。
打卡升级
七年前来顶贴！
感谢分享
先看看，不明白的地方再问
感谢分享，插眼学习