使用VBA超链接控制多工作表显示隐藏的功能实现问题

需求概述 #

• 点击指向目标工作表的超链接时，对应工作表显示并激活
• 切换出目标工作表到其他表时，该目标工作表自动设为xlSheetVeryHidden隐藏
• 支持同时对多个工作表实现上述逻辑

修改后的VBA代码 #

' 定义需要控制的工作表名称集合，可按需添加/修改（用逗号分隔）
Private Const CONTROLLED_SHEETS As String = "Sheet2,Sheet3,Sheet4"

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    Dim targetSheetName As String
    Dim controlledSheetsArr As Variant
    Dim sheetName As Variant
    
    ' 提取超链接指向的工作表名称，兼容带空格的表名（移除前后单引号）
    targetSheetName = Split(Target.SubAddress, "!")(0)
    targetSheetName = Replace(targetSheetName, "'", "")
    
    ' 将受控表名单转为数组遍历匹配
    controlledSheetsArr = Split(CONTROLLED_SHEETS, ",")
    For Each sheetName In controlledSheetsArr
        If sheetName = targetSheetName Then
            With ThisWorkbook.Sheets(sheetName)
                .Visible = xlSheetVisible
                .Activate
            End With
            Exit For
        End If
    Next
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Dim controlledSheetsArr As Variant
    Dim sheetName As Variant
    
    controlledSheetsArr = Split(CONTROLLED_SHEETS, ",")
    ' 判断当前离开的表是否属于受控列表，是则隐藏
    For Each sheetName In controlledSheetsArr
        If Sh.Name = sheetName Then
            Sh.Visible = xlSheetVeryHidden
            Exit For
        End If
    Next
End Sub

关键说明 #

• 只需修改CONTROLLED_SHEETS常量里的工作表名称，就能批量添加/移除受控工作表
• 自动处理带空格的工作表名称（超链接里的表名会被单引号包裹，代码里自动移除）
• 遍历匹配逻辑确保只对指定的工作表生效，不影响其他表的正常使用

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