如何拦截Excel超链接打开事件，实现自定义管控？

针对原生超链接会优先于SheetChange/SheetSelectionChange事件打开的问题，可通过以下几种方式实现管控逻辑前置：

方案一：拦截FollowHyperlink事件（原生超链接适配） #

利用工作表的FollowHyperlink事件，在超链接默认打开流程触发时执行自定义管控，具体代码如下：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ' 临时禁用事件，避免递归触发
    Application.EnableEvents = False
    
    ' 自定义管控逻辑：示例为确认弹窗
    Dim confirmResult As VbMsgBoxResult
    confirmResult = MsgBox("是否确认打开链接：" & Target.Address, vbYesNo, "链接管控")
    
    If confirmResult = vbYes Then
        ' 用户确认后手动打开链接
        ThisWorkbook.FollowHyperlink Address:=Target.Address
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

注意：此事件会在超链接打开前触发，执行上述代码后，原生默认的打开行为会被覆盖，仅在用户确认后才会执行跳转。

方案二：替换为“伪超链接”（彻底管控点击行为） #

将原生超链接转为带样式的普通文本，通过SheetSelectionChange事件触发自定义逻辑，步骤如下：

1. 删除原有超链接，保留链接文本，设置单元格字体为蓝色、单下划线（模拟超链接外观）；
2. 在工作表的SelectionChange事件中添加管控代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅处理单个单元格选中的情况
    If Target.Cells.Count <> 1 Then Exit Sub
    
    ' 判断是否为标记的伪超链接（可自定义识别规则，比如指定列、单元格备注等）
    If Target.Font.Color = RGB(0, 0, 255) And Target.Font.Underline = xlUnderlineStyleSingle Then
        ' 自定义管控逻辑
        If MsgBox("是否打开链接：" & Target.Value, vbYesNo) = vbYes Then
            ThisWorkbook.FollowHyperlink Address:=Target.Value
        End If
        
        ' 选中其他单元格，避免重复触发事件
        Me.Range("A1").Select ' 可替换为任意非管控单元格
    End If
End Sub

方案三：透明形状覆盖拦截（适配对象型超链接） #

对于通过插入对象生成的超链接，可在超链接上方添加透明形状，通过形状的点击事件执行管控：

1. 插入矩形形状，调整大小完全覆盖超链接区域，设置填充、线条为透明；
2. 右键形状选择「指定宏」，关联以下自定义宏：

Sub CustomLinkControl()
    Dim targetShape As Shape
    Dim targetCell As Range
    Dim linkAddr As String
    
    Set targetShape = ActiveSheet.Shapes(Application.Caller)
    Set targetCell = targetShape.TopLeftCell
    
    ' 获取超链接地址
    If targetCell.Hyperlinks.Count > 0 Then
        linkAddr = targetCell.Hyperlinks(1).Address
        
        ' 自定义管控逻辑
        If MsgBox("是否打开链接：" & linkAddr, vbYesNo) = vbYes Then
            ThisWorkbook.FollowHyperlink Address:=linkAddr
        End If
    End If
End Sub

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