如何在Excel中隐藏公式栏中的表格引用？

方法1：将表格转换为隐藏的命名区域 #

把敏感数据表格转换为Excel命名区域，并设置该名称为不可见状态，这样它就不会出现在公式的自动补全列表中：

1. 按Alt+F11打开VBA编辑器，插入新模块；
2. 输入以下代码（替换示例中的区域和名称为你的实际内容）：

   Sub CreateHiddenNamedRange()
       ' 替换VeryHiddenSheet为你的隐藏工作表名，$A$1:$D$10为表格数据区域，HiddenSensitiveData为自定义名称
       ThisWorkbook.Names.Add Name:="HiddenSensitiveData", _
                              RefersTo:="=VeryHiddenSheet!$A$1:$D$10", _
                              Visible:=False
   End Sub
   

3. 运行宏后，该命名区域不会在公式输入时被提示，且VBA项目保护状态下用户无法修改其可见性。

方法2：直接隐藏表格的名称属性 #

Excel的ListObject（表格）对应的名称可以通过VBA设置为不可见，无需转换为命名区域：

Sub HideTableName()
    Dim sensitiveTbl As ListObject
    ' 替换VeryHiddenSheet和SensitiveTable为你的实际工作表和表格名
    Set sensitiveTbl = ThisWorkbook.Worksheets("VeryHiddenSheet").ListObjects("SensitiveTable")
    ' 将表格对应的名称设置为不可见
    ThisWorkbook.Names(sensitiveTbl.Name).Visible = False
End Sub

运行后，该表格名称会从公式自动补全列表中消失，用户无法通过输入首字母找到它。

方法3：加固工作表权限+监控公式输入 #

作为额外防护，可以限制用户在普通工作表中输入公式访问敏感数据：

• 工作表保护：保护所有可见工作表，取消勾选「允许用户编辑区域」外的权限，尤其禁止「输入公式」的权限；
• 公式监控：在ThisWorkbook模块中添加以下代码，拦截试图引用敏感表格的公式：

  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
      If Target.HasFormula Then
          ' 替换SensitiveTable为你的敏感表格名称
          If InStr(Target.Formula, "SensitiveTable") > 0 Then
              Application.EnableEvents = False
              Target.ClearContents
              Application.EnableEvents = True
              MsgBox "无法访问敏感数据"
          End If
      End If
  End Sub
  

  注意：需确保VBA项目处于保护状态，防止代码被篡改。

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