Excel VBA：执行Workbook_BeforeClose后文件无法关闭

Excel文件打开时，Workbook_Open事件会加载登录窗体frmAccess。若未登录就关闭窗体，Close_Spreadsheet变量维持True，此时执行ThisWorkbook.Close SaveChanges:=False，控制权会切换至Workbook_BeforeClose过程，但执行完毕后会回到Close语句的下一行继续执行，文件并未关闭。仅在单步调试Workbook_Open过程时，文件能正常关闭，已排除其他代码干扰，求问题原因及解决办法。

相关代码片段：

Workbook_Open 事件代码 #

Private Sub Workbook_Open()
Application.EnableEvents = True
Close_Spreadsheet = True
frmAccess.Show
If Close_Spreadsheet = True Then
ThisWorkbook.Close SaveChanges:=False
End If
...
...
End Sub

Workbook_BeforeClose 事件代码 #

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

原因 #

这是Excel事件处理的时序冲突问题：

• 在Workbook_Open事件的执行流程中直接调用ThisWorkbook.Close时，Excel的事件循环仍处于处理Workbook_Open的状态，此时发起的关闭请求会被系统暂时挂起，必须等待当前Workbook_Open过程完全执行完毕后才会处理，但此时代码已经走到Close语句之后，关闭请求的上下文已失效。
• 单步调试时，调试器会打断正常的事件循环，给了Excel足够的时间处理关闭请求，因此文件能正常关闭。

解决方案 #

通过延迟执行关闭操作，让Workbook_Open事件先完成执行，再触发关闭逻辑，有两种可行方式：

方式一：使用Application.OnTime延迟调用

Private Sub Workbook_Open()
Application.EnableEvents = True
Close_Spreadsheet = True
frmAccess.Show
If Close_Spreadsheet = True Then
    ' 延迟0秒执行，让当前Workbook_Open事件先执行完毕
    Application.OnTime Now, "CloseThisWorkbook"
End If
...
...
End Sub

' 独立的关闭过程
Sub CloseThisWorkbook()
    ThisWorkbook.Close SaveChanges:=False
End Sub

方式二：显式卸载窗体+触发事件队列处理

Private Sub Workbook_Open()
Application.EnableEvents = True
Close_Spreadsheet = True
frmAccess.Show
Unload frmAccess ' 显式卸载窗体释放资源
If Close_Spreadsheet = True Then
    DoEvents ' 让Excel处理完当前所有待执行的事件
    ThisWorkbook.Close SaveChanges:=False
End If
...
...
End Sub

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