vba - 自动化错误 - 灾难性故障 EXCEL VBA

Question

我有一个工作簿在打开时抛出此错误。当它出现并且我打开 VBA 模块时，当前行是子的定义。但唯一的选择是终止整个 Excel 进程。

我有自定义文档属性，我有嵌入式组合框控件，我不知道它可能是什么，而且 Excel 没有帮助。

但是，当我在另一台计算机上打开同一文件时，它不会抛出错误。

有人对这种错误有任何经验或建议吗？

这是打开代码，但发生错误时“显示下一条语句”命令并未指向此处:

````

Private Sub Workbook_Open()
    Dim ans


    If Range("currentstatus") Like "*Ready for Year-End Preparation*" Then
        ans = MsgBox("This workbook is ready for Year-End Preparation" & vbCrLf & "Would you like to begin?", vbYesNo)

        If ans = vbYes Then
            Range("Phase") = "Year-End"
            SheetsSet 3
        End If
    End If

    'Exit Sub

    If Range("Phase") = "Commissions" Then

        If Range("currentstatus") Like "*RVP/Dept Head Approved*" Then
            ans = MsgBox("Commissions have been approved for " & Range("applicablemonth") & vbCrLf & "Would you like to enter data for the new period?", vbYesNo + vbQuestion)
            If ans = vbYes Then


                Range("ApplicableMonth") = Format(DateAdd("m", 1, CVDate(Range("applicablemonth"))), "YYYY-MM")
                Range("CurrentStatus") = "Ready for Data Entry for " & Range("ApplicableMonth")

                ' now reset the summary page
                Prot False, "Commission Form Summary"
                Range("SalesPersonComplete") = Range("Summary")
                Range("RVPComplete") = ""
                Range("BrMgrComplete") = ""
                Prot True, "Commission Form Summary"

                Sheets("Menu").Select
                '                MsgBox "Begin."
            End If
        End If


    End If

End Sub

Answer 1

我今天早些时候收到此消息，这是由于 Excel 的另一个实例作为后台进程打开(后台进程之前已打开有问题的文件，因此肯定与此有关)。一旦我关闭了另一个实例，问题就消失了。

可能值得检查“任务管理器”>“后台进程”以查看情况是否如此。