我来帮你一步步拆解这个棘手的外部链接问题——试过的方法没效果没关系，咱们换几个更彻底的思路：

1. 先强制跳过链接打开文件，再深层排查 #

打开文件时按住Shift键，这会直接跳过宏和链接更新，让你以只读模式进入文件。之后试试这几个隐藏入口：

• 点击「数据」选项卡 →「编辑链接」，如果看不到链接，点「断开链接」旁边的「检查状态」，说不定能揪出隐藏的关联
• 切换到「公式」选项卡 →「名称管理器」，仔细检查有没有名称引用了外部文件，有的话直接删除或修改引用路径

2. 调整VBA代码的触发时机 #

你用的Workbook.Open事件可能触发太晚，链接已经开始更新了。试试改用Workbook_BeforeOpen事件，把代码放在ThisWorkbook模块里：

Private Sub Workbook_BeforeOpen(Cancel As Boolean)
    Application.AskToUpdateLinks = False
    ThisWorkbook.UpdateLinks = xlUpdateLinksNever
End Sub

这个事件会在文件开始加载前就生效，能提前阻止链接更新请求。

3. 排查容易被忽略的外部链接来源 #

很多隐藏链接藏在这些地方：

• 条件格式：选中整个工作表，点击「开始」→「条件格式」→「管理规则」，检查有没有规则引用了外部文件
• 图表/数据透视表：右键图表→「选择数据」查看数据源；数据透视表点「分析」→「更改数据源」，确认源数据是否指向外部
• 用VBA遍历所有对象：运行这段宏，它会把所有带外部链接的位置列在「立即窗口」（按Ctrl+G打开）：

Sub FindExternalLinks()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim nm As Name
    Dim pt As PivotTable
    Dim ch As ChartObject
    
    Set wb = ThisWorkbook
    
    ' 检查名称管理器
    For Each nm In wb.Names
        If InStr(nm.RefersTo, "[") > 0 Then
            Debug.Print "名称: " & nm.Name & " - " & nm.RefersTo
        End If
    Next nm
    
    ' 检查工作表公式
    For Each ws In wb.Worksheets
        On Error Resume Next
        Dim rng As Range
        Set rng = ws.Cells.SpecialCells(xlCellTypeFormulas)
        If Not rng Is Nothing Then
            For Each cell In rng
                If InStr(cell.Formula, "[") > 0 Then
                    Debug.Print "单元格: " & ws.Name & "!" & cell.Address & " - " & cell.Formula
                End If
            Next cell
        End If
        On Error GoTo 0
        
        ' 检查数据透视表
        For Each pt In ws.PivotTables
            If InStr(pt.SourceData, "[") > 0 Then
                Debug.Print "数据透视表: " & pt.Name & " - " & pt.SourceData
            End If
        Next pt
        
        ' 检查图表
        For Each ch In ws.ChartObjects
            If InStr(ch.Chart.DataSource, "[") > 0 Then
                Debug.Print "图表: " & ch.Name & " - " & ch.Chart.DataSource
            End If
        Next ch
    Next ws
End Sub

4. 终极修复：修复文件损坏 #

如果以上方法都没用，可能是文件有轻微损坏：

• 把文件另存为.xlsx（暂时去掉宏），再重新另存回.xlsm格式
• 新建空白.xlsm文件，右键原文件的工作表→「移动或复制」到新文件，注意不要复制隐藏工作表，之后再重新添加宏

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