工作表鼠标右键菜单不显示（工作表深度隐藏）

前景提要(文末提供源码下载）

昨晚我们玩了一下工作表的批量隐藏，整体代码非常的简单，只有短短的几行，精华只有一句话

sth.Visible = xlSheetHidden

不过有小伙伴表示不服，因为他发现工作表隐藏了之后，不用代码也可以取消隐藏，就是鼠标右键就可以

好吧，因为当初仅仅是考虑到工作表隐藏不可见，并没有考虑太深入，不过既然大家发现了这个BUG，我们今天就来修复这个BUG，今天我们来尝试下深度隐藏，以实现大家的要求，通过代码隐藏之后，只能通过代码取消隐藏，绝对不可能通过鼠标去取消隐藏

代码区

暂且我们称之为深度隐藏吧

说起来那么玄乎，其实实现起来也是非常的简单，看代码

Sub TEST() Dim sth As Worksheet For Each sth In Worksheets If sth.Name <> "最终统计结果" Then sth.Visible = xlSheetVeryHidden End If Next sth End Sub

看看效果

不仅仅成功的实现了工作表的批量隐藏，而且，你完全没有办法通过鼠标去取消隐藏，就算是知道有隐藏的工作表，你也不能通过鼠标来取消隐藏了。

如果想要取消的话，只能通过我们上节学习的代码的方式来取消隐藏了。 没有代码的情况下是没有办法取消隐藏的

可能这时候大家就会问了，是不是这样任何知道取消代码的人，都可以通过再写一次代码就可以隐藏了呢？

其实也简单，你设置下密码保护

如果人家要更改密码的话，就。。。

不行咯

代码分析

今天的代码也很简单

就一句话

sth.Visible = xlSheetVeryHidden

工作表的深度隐藏

=======================================================

本节课的案例源码已经上传，需要的小伙伴后台私信“7-43-8”，希望大家多支持~~，多多关注 ~ ~

好了，明晚19:00,准时再见!

,