Excel 错误，停止运行宏

Question

我在 Excel 上遇到了一个奇怪的错误。我有一个宏，当我按下 CTRL+m（宏快捷键）时，它会显示一个非模态用户窗体。每隔一段时间，而且不是那么频繁（白天出现一两次，我每 5 分钟左右使用一次宏），Excel 不会运行宏，不会显示用户窗体，只会发出哔哔声（如“错误，无法继续执行代码”）。

我进入宏窗口尝试按“运行”并手动执行，但所有按钮都被禁用，“创建”除外。如果单击它，则表示宏名称无效。正如您在下面的屏幕截图中看到的那样，宏的名称显示了代码所在的实例（工作簿的 Sheet1）。

有时可以通过保存工作簿并重新尝试来修复它，但有时它不会；如果没有，我运行一个不同的宏（通过双击一个特定的列）显示一个模态用户窗体，并执行它的代码。然后我的第一个宏恢复正常。

任何帮助将不胜感激。

编辑：在 cmets 中按要求添加代码

Sub ShowCommentWindow()
    Dim myCell As Range
    Dim companyColumn As Long
    Dim wbk as Workbook
    Dim company as String
    Dim phone as Long

    Set wbk = ActiveWorkbook

For Each myCell In wbk.Worksheets(1).Range("A1:Q1")

   If myCell.Text = "Company" Then
        companyColumn = myCell.Column
        company = ActiveCell.Text
        phone = ActiveCell.Offset(0, 4).Value
        Exit For
    End If
Next myCell

If ActiveCell.Column = companyColumn Then

    If EmailForm.Visible Then
        GoTo ExitProc
    Else
        If Not ActiveCell.Row < 4 Then
            ActiveWindow.ScrollRow = ActiveCell.Row - 3
        Else
            ActiveWindow.ScrollRow = ActiveCell.Row
        End If
        If CommentWindow.Visible Then
            CommentWindow.AddButton.SetFocus
            CommentWindow.CommentBox.SetFocus
            Exit Sub
        Else
            CommentWindow.Show
            ManageComments
            AddComment
        End If
    End If
End If

ExitProc:
End Sub

Edit2：发布更多代码，用于 QueryClose：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Dim myCell As Range
Dim isCompany As String

    If Not CommentWindow.CommentBox.Text = CommentWindow.TextCopy.Text Then
        saveConf = MsgBox("Changes have not been saved yet. Do you want to save?", vbExclamation + vbYesNoCancel + vbDefaultButton2, "Save changes?")
        If saveConf = vbYes Then
            Call SaveComment
            GoTo ExitProc
        ElseIf saveConf = vbCancel Then
            changed = True
            Cancel = 1
            CommentWindow.AddButton.SetFocus
            CommentWindow.CommentBox.SetFocus
            'CommentWindow.CommentBox.Text = CommentWindow.TextCopy.Text
        Else
            CommentWindow.TextCopy.Text = CommentWindow.CommentBox.Text
            GoTo ExitProc
        End If
    Else
        If Not changed = True Then
            GoTo ExitProc
        End If
    End If

ExitProc:
End Sub

Answer 1

似乎问题不是从 (Unload(UserForm)) 卸载表单
这导致memory leak.
Even the official documentation -this 指的是 Access，但是对于 Excel 的行为应该相同（那里没有 Form 对象或用户表单文档）- 声明生命周期是 Unload->Deactivate->Close，这应该在您关闭时发生用户表单也是如此，日常使用表明，如果没有说明，则在关闭用户表单时可能不会触发 Unload。
生命周期有时没有被严格监控，但是，这可能会导致内存泄漏和奇怪的行为，总是在处理对象时，如果没有指定，你不应该依赖垃圾收集器来清理它们。可能添加一些内容以确认 terminate 正在被正确处理会有所帮助。
编辑
如果您在记住卸载时遇到问题 - 或仍然存在记忆问题 - ，那么执行以下操作将是一个好习惯：

Sub MyMainProcess()
Dim myform As UserForm1: Set myform = UserForm1 'this is your UserForm name
myform.Show
'my stuff needed...
Unload myform
Set myform = Nothing
End Sub

通过编码尽可能多地卸载和清理

Answer 2

我看到您正在调用“外部”宏（它不在活动工作簿中） - 是否有可能每天大约 2 次它不能工作该工作簿（数据库 2 Lumber.xlsm）当时正在被其他人使用（八个运行那个，还是另一个宏？）。

如果是这样，我之前所做的是每次运行宏时保存工作簿的本地副本