Excel Hyperlink能否使用Sheet CodeName避免重命名后失效？

完全可以通过工作表的CodeName替代显示名称创建超链接，从根源上避免重命名目标工作表导致的超链接失效问题，无需依赖Change事件手动重置。

核心原理 #

Excel工作表的CodeName是VBA层面的固定标识（在VBA编辑器的属性窗口中查看(Name)属性，默认如Sheet1、Sheet2），它不会随用户修改工作表标签名称而变化。直接基于CodeName创建超链接，就能摆脱对可变标签名的依赖。

实现代码示例 #

以下代码可批量为当前工作表的所有图片添加基于CodeName的超链接，指向指定目标工作表：

Sub AddHyperlinkByCodeName()
    Dim shp As Shape
    Dim targetSheet As Worksheet
    
    ' 指定目标工作表（直接用CodeName，比如Sheet2）
    Set targetSheet = Sheet2
    
    ' 遍历当前工作表的所有图片形状
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            ' 清除原有超链接（如果存在）
            If Not shp.Hyperlink Is Nothing Then
                shp.Hyperlink.Delete
            End If
            ' 创建基于CodeName的超链接，指向目标工作表的A1单元格
            shp.Hyperlink.Add _
                Anchor:=shp, _
                Address:="", _
                SubAddress:=targetSheet.CodeName & "!A1"
        End If
    Next shp
End Sub

关键说明 #

• 超链接的SubAddress参数格式为[CodeName]!单元格地址，Excel能直接识别该标识定位到目标工作表，不受标签名称变更影响。
• CodeName可在VBA编辑器中修改（选中工作表后，在属性窗口修改(Name)值），但建议保持默认或设置为有意义的固定名称，避免后续误改。
• 一旦基于CodeName创建超链接，后续无论用户怎么重命名目标工作表的标签，超链接都会正常工作，无需额外维护。

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