仅单个用户触发VBA运行时错误424的排查问询

我有一个每周由多名用户运行的VBA宏，但仅一名用户点击宏关联按钮时会随机触发运行时错误424，且无调试行提示。该宏在我及其他用户电脑上运行正常，文件模板存储于网络，每周按需复制；用户使用的Windows版本与其他用户一致，文件未做任何可能引发错误的修改；IT部门排查后确认无硬件或连接问题。请问该问题的可能原因是什么？

• 工作表引用不一致：代码里大量使用Sheet1.Select、Sheets("Retail Template (2)").Select这类依赖工作表代码名或名称的写法。如果该用户的Excel中，模板复制后工作表的代码名（比如Sheet1对应的实际工作表）或名称出现隐性变更（比如之前操作残留的异常），就会找不到对象触发424错误。
• Excel宏安全/信任设置差异：虽然Windows版本相同，但该用户的Excel可能开启了更严格的宏安全规则，或者禁用了部分对象模型，导致宏运行时无法访问指定对象。
• 用户窗体加载异常：代码开头调用UserForm1.Show，如果该用户的Excel加载窗体时被后台程序干扰、资源占用过高，可能导致RptAbort这类全局变量状态异常，进而引发后续对象引用错误。
• 本地缓存/临时文件损坏：Excel运行会生成临时文件，该用户的本地Excel缓存若损坏，网络模板复制到本地打开后，对象引用可能出现异常。
• 依赖活动对象的写法隐患：代码里频繁使用Select和ActiveSheet，这类写法极易因用户误操作（比如宏运行时不小心点击了其他窗口）导致活动对象切换，比如ActiveSheet.Range(...)此时指向的不是预期工作表，直接触发找不到对象的错误。
• 全局变量干扰：RptAbort和RptProcess未显式声明作用域，若该用户的Excel中有其他宏或加载项使用了同名变量，可能干扰状态判断，引发后续代码的对象引用错误。

关联VBA代码 #

Public Sub CrtReport()

    RptAbort = False
    RptProcess = True
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    UserForm1.Show
    If RptAbort Then Exit Sub
    

    Sheet11.Visible = xlSheetVisible
    Sheet1.Visible = xlSheetVisible
    Sheet1.Select

    Call ClearSubtotals
    Call ClearReportRetail
    
    ans = BldReport()
    If ans = False Then
        xyz = MsgBox("No data for the selected department", vbCritical, "Markdown Tool")
        Sheet3.Select
        Exit Sub
    End If
    Call BldClassTotals

    Sheet1.Copy Before:=Sheet6
    
    Dim Answer$
    Answer = Application.InputBox("Enter new sheet name")
    If Answer = "" Then Answer = "xyz"
    
    Sheet3.Select
    Range("B14") = Answer

    
    Sheet12.Select
    lastRow = Cells(Rows.Count, "I").End(xlUp).Row
    Cells(lastRow + 1, 9) = Answer
    
    Sheets("Retail Template (2)").Select
    Sheets("Retail Template (2)").Name = "Retail " & Answer


    ActiveSheet.Range("$A$9:$AY$50000").AutoFilter Field:=7, Criteria1:="S"

    Range("E14").Select
    Sheet1.Visible = xlSheetHidden
    

    Sheet14.Visible = xlSheetVisible
    Sheet14.Select

    Call ClearSubtotals
    Call ClearReportRetail
    
    Call BldReportE
    Call BldClassTotalsE

    Sheet14.Copy Before:=Sheet6
    
    Sheets("ECOMM Template (2)").Select
    Sheets("ECOMM Template (2)").Name = "ECOMM " & Answer


    Columns("AD:AI").Select
    Selection.Replace What:="Template", Replacement:=Answer, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Range("A10").Select
    

    ActiveSheet.Range("$A$9:$AY$50000").AutoFilter Field:=7, Criteria1:="S"
    

    Sheet14.Visible = xlSheetHidden
    
    Sheets("Retail " & Answer).Select


    Columns("AD:AE").Select
    Selection.Replace What:="Template", Replacement:=Answer, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Range("A10").Select
        

    Call UpdateEcommLRD
    Call UpdateRetailLRD

    
    Sheet5.Select
    lastRow = Cells(Rows.Count, "F").End(xlUp).Row
    If ActiveSheet.AutoFilterMode Then


        ActiveSheet.Range("$A$2:$AY$50000").AutoFilter Field:=2, Criteria1:="<>" & Sheet12.Range("b1").Value
    Else
        Range("A1").Select
        Selection.AutoFilter


        ActiveSheet.Range("$A$2:$AY$50000").AutoFilter Field:=2, Criteria1:="<>" & Sheet12.Range("b1").Value
    End If


    Range("$A$2:$AY$50000").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Clear
    Range("A1").Select
    
    Sheet6.Select
     lastRow = Cells(Rows.Count, "F").End(xlUp).Row
    If ActiveSheet.AutoFilterMode Then


        ActiveSheet.Range("$A$2:$AY$50000").AutoFilter Field:=2, Criteria1:="<>" & Sheet12.Range("b1").Value
    Else
        Range("A1").Select
        Selection.AutoFilter


        ActiveSheet.Range("$A$2:$AY$50000").AutoFilter Field:=2, Criteria1:="<>" & Sheet12.Range("b1").Value
    End If


    Range("$A$2:$AY$50000").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Clear
    Range("A1").Select
    

    Sheets("Retail " & Answer).Select

    Range("A10").Select
    
    RptProcess = False
    Application.DisplayAlerts = True
End Sub

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