如何阻止其他工作簿运行宏显示本工作簿的深度隐藏工作表

首先明确：xlSheetVeryHidden本身是面向普通用户的界面隐藏功能，不属于安全防护机制，哪怕你给VBA工程加锁、用了Unviewable+类的代码保护工具，只要外部宏能获取到你的工作簿对象，默认就能修改工作表属性，可按以下优先级落地防护：

• 优先开启工作簿结构保护，从对象模型层拦截属性修改
  操作路径：打开主工作簿→点击「审阅」选项卡→选择「保护工作簿」→勾选「结构」选项，输入强密码后保存。
  防护效果：开启结构保护后，任何外部宏执行你贴出的遍历修改Visible属性的代码时，会直接触发权限类运行时错误，无法修改工作表可见状态，也无法新增/删除工作表。注意不要使用弱密码，避免被简单爆破。

• 敏感数据避免明文存储在工作表中
  所有需要隐藏的核心数据不要明文放在单元格内：

  1. 提前用对称加密算法（如AES）将敏感内容加密后再存入单元格，仅在工作簿自身宏运行、通过环境合法性校验（如确认调用方是当前工作簿、用户通过授权验证）时，才将解密后的明文加载到内存使用，用完立刻释放内存中的明文数据
  2. 禁止将解密后的明文回写到任何工作表单元格，从根源上避免数据被读取

• 增加运行时动态校验逻辑
  在你已有的VBA工程中补充两类事件逻辑，进一步压缩外部宏的操作空间：

  1. 工作簿打开事件校验：启动时遍历当前已打开的所有工作簿，如果检测到非自身的带宏工作簿，直接弹出风险提示，用户确认风险后可自动关闭当前文件，避免被扫描篡改
  2. 定时状态校验：每隔固定时间（比如10秒）检查所有需要隐藏的工作表的Visible属性，一旦发现属性被异常修改，立刻自动关闭工作簿且不保存更改
     参考校验代码示例：

  ' ThisWorkbook模块内代码
  Private Sub Workbook_Open()
      Dim wb As Workbook
      For Each wb In Application.Workbooks
          If wb.Name <> ThisWorkbook.Name And wb.HasVBProject Then
              If MsgBox("检测到其他带宏工作簿存在，可能有非法访问风险，是否关闭当前文件？", vbExclamation + vbYesNo) = vbYes Then
                  ThisWorkbook.Close SaveChanges:=False
                  Exit Sub
              End If
          End If
      Next
      ' 启动定时校验
      Application.OnTime Now + TimeValue("00:00:10"), "CheckSheetHiddenStatus"
  End Sub
  
  ' 标准模块内代码
  Sub CheckSheetHiddenStatus()
      Dim sh As Worksheet
      Dim targetSheets As Variant
      targetSheets = Array("敏感表1", "敏感表2", "敏感表3") '替换为你需要保护的工作表名
      For Each sh In ThisWorkbook.Sheets
          If Not IsError(Application.Match(sh.Name, targetSheets, 0)) And sh.Visible <> xlSheetVeryHidden Then
              ThisWorkbook.Close SaveChanges:=False
          End If
      Next
      ' 循环启动下一次校验
      Application.OnTime Now + TimeValue("00:00:10"), "CheckSheetHiddenStatus"
  End Sub
  

• 高安全需求场景使用Office原生权限管控
  如果你的文件敏感等级很高，不要依赖VBA层面的自写防护，直接启用Office自带的信息权限管理（IRM）：操作路径为「文件」→「信息」→「保护工作簿」→「限制访问」，配置授权范围后，无权限用户连打开文件的权限都没有，从系统层面阻断所有非法访问可能。

注意：所有VBA层的防护逻辑都需要配合你已经在使用的VBA工程锁定、Unviewable+类代码保护工具使用，避免恶意用户直接篡改你的校验代码。

内容的提问来源于stack exchange，提问作者Leedo