Excel VBA 7.42批量实现工作表隐藏 有些秘密我不想给你看
前景提要(文末提供源码下载）
好了，之前我们很多关于数据的求和、合并、汇总等方面的案例和知识，相信大家都有点感觉到大脑细胞奔溃的感觉了，虽然VBA仅仅算是Excel自带的小脚本语言，但是因为依托于Excel本身的功能，他还是有很多使用方法和场景等待我们去开发和探索的，不过凡事都要劳逸结合，今天我们学习一点比较简单的东西，工作表的隐藏
说起工作表的隐藏，想必大家都非常的熟悉了，一个右键就可以解决的问题
但是如果有多个呢？你还打算这样一个个的隐藏嘛？将需要的工作表独立出来？要是其中还有连带的计算公式之类的，你独立的话，数据不是就乱了吗？那么怎么办？来，让vba来帮助我们实现批量工作表的隐藏吧
代码区
假设我们现在有一个成绩表，我们只需要让对方看到最终的结果，但是我们并不需要让对方看到具体的数据来源
那么我们就需要将这些数据源所在的工作表隐藏起来，这是我们上节课演示的案例的结果，因为是通过VBA实现的，所以不存在公式，对方也不可能通过公式来发现还有其他数据源的存在，所以我们需要做的就是讲这几个表隐藏起来，来看代码
Sub TEST()Dim sth As WorksheetFor Each sth In Worksheets If sth.Name <> "最终统计结果" Then sth.Visible = xlSheetHidden End IfNext sthEnd Sub好像今天的代码好简单，既然我们说今天要放松下大脑，自然最近几天的代码就比较的简单了，但是依然是大家日常工作中比较常用的工作表方面的知识
直接看运行的结果吧
空空如也，只剩下一个我们需要展示的工作表，其他的工作表已经不存在了。
如果你想要展示的话呢？解铃还须系铃人，看下面的代码
Sub TEST()Dim sth As WorksheetFor Each sth In Worksheets If sth.Name <> "最终统计结果" Then sth.Visible = xlSheetVisible End IfNext sthEnd Sub程序执行之后，数据又回来了。
代码分析
今天的知识点也是比较的简单，工作表的隐藏，其实就很简单的一句话
sth.Visible = xlSheetHidden
在英语中hidden就是隐藏的意思，所以在VBA中也是这样的效果，将对应的工作表影藏起来
当然了，隐藏之后，我们自己使用的时候肯定还是需要展示出来的，那么工作表如何解除隐藏呢？
也是简单的一句话
sth.Visible = xlSheetVisible
==============================================