如何基于Visible工作表的单元格列表隐藏不在列表内的工作表？

你可以通过以下修改后的代码，实现读取Visible工作表内的单元格列表（默认读取A列非空单元格），自动隐藏所有名称不在该列表中的工作表：

Sub ocultarPlanilhas()
    Dim ws As Worksheet
    Dim visibleWs As Worksheet
    Dim allowedNames As Object
    Dim cell As Range
    
    ' 初始化字典存储允许显示的工作表名
    Set allowedNames = CreateObject("Scripting.Dictionary")
    ' 获取存放允许列表的Visible工作表
    Set visibleWs = ThisWorkbook.Worksheets("Visible")
    
    ' 读取Visible工作表A列的非空单元格，存入字典
    For Each cell In visibleWs.Range("A1", visibleWs.Cells(visibleWs.Rows.Count, "A").End(xlUp))
        If cell.Value <> "" Then
            allowedNames(UCase(cell.Value)) = True ' 转大写避免大小写敏感问题
        End If
    Next cell
    
    ' 确保Visible工作表本身始终可见
    allowedNames(UCase(visibleWs.Name)) = True
    
    ' 遍历所有工作表，判断是否在允许列表中
    For Each ws In ThisWorkbook.Worksheets
        If Not allowedNames.Exists(UCase(ws.Name)) Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
End Sub

关键修改说明： #

• 使用**字典（Scripting.Dictionary）**存储允许显示的工作表名称，比逐个单元格比对效率更高，尤其适合工作表数量较多的场景
• 默认读取Visible工作表A列所有非空单元格作为允许显示列表，若需改用其他列，将代码中的"A"替换为对应列标即可（比如"B"）
• 加入大小写不敏感判断：将工作表名和列表名称统一转成大写，避免因大小写不一致导致判断错误
• 强制保留Visible工作表的可见性，防止误操作把存放列表的核心工作表也隐藏

使用注意： #

1. 确保Visible工作表存在，且允许显示的工作表名称准确填写在对应列（每行一个名称）
2. 如果需要隐藏后允许用户手动取消隐藏，保持xlSheetHidden即可；若要彻底隐藏（仅能通过VBA取消），可改为xlSheetVeryHidden

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