禁止鼠标右键代码 通过Excel vba禁用鼠标右键部分功能实现工作表深度隐藏

前景提要

工作表隐藏的优点是操作简单，可以在一定程度上保护我们工作表数据的安全。当然这并不是最有效最好的方法，但是从操作的方便性来说，这种方法比较通用。但是如果大量的工作表还是用鼠标一个个隐藏，工作量有点大，所以昨天通过VBA分享了批量隐藏的方法，但是这个方法有一个缺点，就是隐藏的工作表还是可以用鼠标右键隐藏的。

所以今天我们将修复这个昨天遗留下来的BUG，使功能更加完善

代码区

让我们看看今天的代码

Sub TEST()

将某物作为工作表变暗

对于工作表中的每一项内容

如果某事。名称<。>。“最终统计结果”然后

某事。Visible = xlSheetVeryHidden

如果…就会结束

下一件事

末端接头

虽然我们增加了函数，但是代码还是比较简单的。我们先来看看结果

到目前为止，代码的效果还是不错的，但这不是我们的重点。我们今天要修复的BUG是禁止鼠标右键取消隐藏，那么有必要禁止鼠标右键菜单吗？代码复杂吗？

没有，其实这个功能现在已经实现了。我们来验证一下

函数为灰色不可用，证明之前的代码在运行过程中同时完成了两个操作，禁止了鼠标右键的部分功能，实现了工作表的批量隐藏功能

代码解析

短短几个字的代码就能实现这么大的功能，是哪一段代码？

某事。Visible = xlSheetVeryHidden

从这段代码的字面意思可以大致理解为隐藏的更深，所以我们称之为深度隐藏。执行此隐藏后，鼠标右键不能取消隐藏。如果要取消隐藏，只能用代码取消隐藏。取消的代码怎么写？

Sub TEST1()

将某物作为工作表变暗

对于工作表中的每一项内容

如果某事。名称<。>。“最终统计结果”然后

某事。Visible = xlSheetVisible

如果…就会结束

下一件事

末端接头

验证后，隐藏的工作表再次出现。