Excel(VBA)如何根据单列表格CategoriesTable的值隐藏未指定工作表

核心逻辑为读取CategoriesTable单列表内的所有工作表名称存入备查集合，遍历工作簿所有工作表，仅保留列表内的工作表可见，其余全部隐藏，无需新增辅助列。

完整VBA代码 #

Sub HideUnlistedSheets()
    Dim ws As Worksheet
    Dim allowVisibleDict As Object
    Dim tableList As Variant
    Dim i As Long
    ' 初始化字典用于存储允许可见的工作表名
    Set allowVisibleDict = CreateObject("Scripting.Dictionary")
    allowVisibleDict.CompareMode = vbTextCompare ' 忽略大小写匹配
    
    ' 读取CategoriesTable单列表的所有值
    ' 请将下面的Sheet1替换为CategoriesTable所在的工作表名称
    tableList = ThisWorkbook.Worksheets("Sheet1").ListObjects("CategoriesTable").ListColumns(1).DataBodyRange.Value
    
    ' 将表名存入字典
    If Not IsArray(tableList) Then
        ' 处理表格只有一行的情况
        allowVisibleDict.Add CStr(tableList), True
    Else
        For i = LBound(tableList, 1) To UBound(tableList, 1)
            If Not allowVisibleDict.Exists(CStr(tableList(i, 1))) Then
                allowVisibleDict.Add CStr(tableList(i, 1)), True
            End If
        Next i
    End If
    
    ' 遍历所有工作表设置可见性
    For Each ws In ThisWorkbook.Worksheets
        If allowVisibleDict.Exists(ws.Name) Then
            ws.Visible = xlSheetVisible
        Else
            ' 避免所有工作表都隐藏的报错
            If ThisWorkbook.Worksheets.Count > 1 Then
                ' 如需彻底隐藏（用户手动取消隐藏也看不到）可替换为xlSheetVeryHidden
                ws.Visible = xlSheetHidden
            End If
        End If
    Next ws
    
    Set allowVisibleDict = Nothing
End Sub

使用说明 #

• 代码中Worksheets("Sheet1")请替换为CategoriesTable实际所在的工作表名称
• 按下Alt + F11打开VBA编辑器，右键点击工作簿名称选择「插入」-「模块」，将上述代码粘贴到模块中
• 按下F5即可运行，也可以在工作表中插入按钮关联该宏，点击即可一键执行

注意事项 #

• 确保CategoriesTable中至少填写1个有效工作表名称，避免触发Excel不允许全隐藏工作表的报错
• 如需调整隐藏级别，可修改ws.Visible的取值：xlSheetHidden为普通隐藏，用户可手动取消；xlSheetVeryHidden为深度隐藏，仅能通过VBA修改可见性

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