excel没有正确关闭 - 用户窗体挂起？

Question

我有一个包含 6 个用户表单的电子表格，在大约 30 台计算机上使用。 VBA 代码受密码保护。通常当我们关闭工作表时，会出现 VBA 项目密码框，并且 excel.exe 保留在任务管理器中。

我做了一些测试，得出以下结论：

1. 只有在打开用户窗体时才会出现此问题。
2. 除了按 Cancel（调用 Unload Me）外，无需对用户窗体执行任何操作即可导致弹出窗口

Workbook_BeforeClose 事件如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.ScreenUpdating = False

'Cancel autosave
Sheets("BOH General").Range("A102").Value = 0
AutoSaveTimer

'Application.EnableEvents = False

If Not Sheets("START").Visible = True Then Call CostingMode
Call BackItUp

'Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

以下是 Workbook_BeforeClose 调用的其他一些宏：

Sub AutoSaveTimer()

If Sheets("BOH General").Range("A102").Value > 0 Then
    RunWhen = Now + TimeSerial(0, Sheets("BOH General").Range("A102").Value, 0)
    Application.OnTime EarliestTime:=RunWhen, Procedure:="AutoSaveIt", _
        Schedule:=True
Else
    On Error Resume Next
    Application.OnTime EarliestTime:=RunWhen, Procedure:="AutoSaveIt", _
        Schedule:=False
    On Error GoTo 0
End If

End Sub

Sub AutoSaveIt()
ThisWorkbook.Save
Call AutoSaveTimer
End Sub

Sub BackItUp()

'Dont run if unsaved
If Sheets("BOH General").Range("A111").Value = "" Then Exit Sub

'Prompt
If MsgBox("Do you want to backup this sheet now (recommended if you made any changes)?", vbYesNo) = vbNo Then Exit Sub

'reformat date
Dim DateStamp As String
DateStamp = Format(Now(), "yyyy-mm-dd hh-mm-ss")

On Error Resume Next
MkDir ActiveWorkbook.Path & "\" & "Backup"
On Error GoTo 0

ActiveWorkbook.SaveCopyAs (ActiveWorkbook.Path & "\" & "Backup" & "\" & ActiveWorkbook.Name & " - backup " & DateStamp & ".xlsb")

ActiveWorkbook.Save

End Sub

这是一个用户表单错误，用户表单没有正确关闭吗？还是别的什么？

更新：此错误仅在用户单击 excel 关闭按钮（右上角）单击文件>关闭不会产生错误后发生。

Answer 1

有趣的是，我也遇到过同样的情况，它也是最近才出现的。 MOS 版本是否改变了这种行为？我在 Excel 12.0.6611.1000 和 12.0.6712.5000 上的用户没有收到此错误，但在 12.0.6729.5000 上总是出现此错误。

编辑； 在发现几个用户安装了“投递箱”后，我今天最终解决了这个问题。在关闭应用程序之前卸载或关闭投递箱解决了该问题。