【原】【VBA实战系列】002-一键取消所有隐藏工作表

今年我们来聊点简单的，但是很常见的问题

如何批量取消工作薄中，所有隐藏的工作表

目前Excel自带的功能，无法实现批量，只能逐个取消，

有兴趣的同学可以去WPS看看，听说可以

不过有很多MS OFFICE忠粉，如我，

所以我们就来简单实现以下这个功能

先看效果：

点击按钮，显示出了所有隐藏

代码截图：

源码粘贴可用：

'作者：Excel办公实战-小易'功能：过程名称很明白'------------------------------------Sub 取消全部隐藏工作表() Dim ws As Worksheet '检查没一个工作表 For Each ws In ThisWorkbook.Worksheets '取消隐藏-可见 ws.Visible = xlSheetVisible ws.Visible = xlSheetVeryHidden ws.Visible = xlSheetHidden NextEnd Sub


‍

扩展：

如果想通过代码隐藏工作表，那么可以只要把

ws.Visible = xlSheetVisible 修改为 

ws.Visible = xlSheetHidden 或者 xlSheetVeryHidden

xlSheetVeryHidden 相对于hidden 更加安全，普通方法无法取消隐藏，必学在VBE中操作取消

小结：从实战出发，只是简单的几句代码，如何大量的隐藏工作表需要取消，可以大量节约我们的时间，以上代码可以直接复制粘贴使用！