Excel点击超链接后关联的VBA代码无法运行该如何处理

1. 事件代码放置规则修正 #

• Worksheet_FollowHyperlink属于工作表专属事件，仅当代码存放在对应目标工作表的代码模块时才会生效：按下Alt+F11打开VBA编辑器，在左侧工程资源管理器中双击你要配置的工作表（如Sheet1），将代码粘贴到右侧编辑窗口即可，存放在普通模块、ThisWorkbook对象中都无法触发该工作表级事件。
• 如果你需要全局监听所有工作表的超链接点击，需改用工作簿级事件，将以下代码放到ThisWorkbook的代码模块中：

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    MsgBox "It Ran"
End Sub

2. 代码与运行配置检查 #

• 事件过程必须添加Private修饰符，无修饰符的过程会被识别为普通公共宏，无法自动绑定事件，修正后的工作表级代码如下：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    MsgBox "It Ran"
End Sub

• 宏安全配置检查：依次点击Excel菜单栏「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，选择启用宏，或者将当前文件存入受信任位置，打开文件时点击顶部安全警告栏的「启用内容」。
• 确认全局事件开关未被禁用：如果此前运行过其他VBA代码设置了Application.EnableEvents = False，所有事件都会失效，按下Ctrl+G调出VBA立即窗口，输入Application.EnableEvents = True回车执行后再测试。

3. 特殊场景兼容 #

• 如果你的超链接是通过HYPERLINK工作表函数生成的公式类超链接，默认不会触发FollowHyperlink事件，可改用插入的手动超链接（右键单元格→链接→设置目标）即可正常触发。

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