为何编程触发关闭时，Workbook_BeforeClose内的VBA Workbook.Close语句会失败？

问题根本原因 #

两种关闭触发场景的执行上下文差异，以及Excel VBA的事件队列、关闭请求处理机制共同导致了这个现象：

• 当你通过UI点击右上角叉号触发关闭时：
  1. UI发起的关闭请求首先触发Workbook_BeforeClose事件
  2. 你设置Cancel = True直接终止了本次UI发起的关闭请求，原有请求的上下文已经结束
  3. 后续关闭事件触发后调用的ThisWorkbook.Close是全新的关闭请求，此时EnableEvents = False不会再触发BeforeClose事件，请求可以正常执行，完成关闭。
• 当你通过立即窗口直接调用ThisWorkbook.Close触发关闭时：
  1. 代码发起的关闭请求触发Workbook_BeforeClose事件，此时整个关闭请求处于事件处理的上下文绑定状态
  2. 你设置Cancel = True是标记要取消本次原始关闭请求，但此时事件处理过程还在执行中
  3. 你在同一个BeforeClose事件处理过程内部调用的ThisWorkbook.Close会被Excel判定为重复请求：当前工作簿已经处于关闭请求的处理流程中，新的关闭请求会被直接忽略
  4. 事件处理过程执行完毕后，因为你已经标记了Cancel = True，原始的关闭请求也被取消，最终就出现了文件无法关闭的现象。

修复方案 #

如果要兼容两种触发场景，可以把内部的关闭调用改成延迟异步执行，脱离当前事件的上下文即可：

1. 先在标准模块中添加一个公开的关闭过程：

Public Sub CloseTargetWorkbook()
    Application.EnableEvents = False
    ThisWorkbook.Close SaveChanges:=True ' 可根据需求调整保存参数
    Application.EnableEvents = True ' 建议执行完后恢复事件触发，避免异常中断后影响其他操作
End Sub

2. 修改Workbook_BeforeClose事件代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    ' 用OnTime延迟调用，脱离当前事件上下文
    Application.OnTime Now + TimeValue("00:00:00"), "CloseTargetWorkbook"
End Sub

建议所有修改Application.EnableEvents的逻辑都加上错误处理，避免代码异常中断后事件触发始终处于关闭状态，影响Excel其他功能的正常运行。

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