VBA关闭工作簿时如何获取系统保存提示框的用户选择结果

核心原理 #

Excel的默认保存提示是在Workbook_BeforeClose事件执行完成后才触发的，因此你需要在事件内部提前接管保存判断逻辑，替代系统默认提示，就能直接获取用户选择，避免逻辑提前执行。

可直接使用的实现代码 #

将以下代码放入工作簿的ThisWorkbook模块中即可：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim userChoice As VbMsgBoxResult
    ' 先判断工作簿是否存在未保存的修改
    If Not ThisWorkbook.Saved Then
        ' 自定义和系统样式一致的保存提示，完全替代默认提示
        userChoice = MsgBox("是否保存对 " & ThisWorkbook.Name & " 的修改？", vbYesNoCancel + vbExclamation, "Microsoft Excel")
        Select Case userChoice
            Case vbYes
                ' 用户选择保存，执行保存逻辑
                ThisWorkbook.Save
            Case vbNo
                ' 用户选择不保存，标记为已保存状态，避免系统再次弹出提示
                ThisWorkbook.Saved = True
            Case vbCancel
                ' 用户选择取消关闭，终止整个流程，不执行后续业务逻辑
                Cancel = True
                Exit Sub
        End Select
    End If
    
    ' 执行到此处说明用户已确认关闭工作簿，调用你需要的删除数据逻辑
    Call 你自定义的删除其他工作簿数据的宏名称
End Sub

实现说明 #

• 该方案完全禁用了系统默认的保存提示，所有选择结果都可以直接在代码中获取，不会出现逻辑误执行的问题
• 不会影响其他工作簿的正常提示，也不需要修改全局的DisplayAlerts参数

之前方案失效的原因 #

仅设置Application.DisplayAlerts = False不会跳过保存校验逻辑，如果你没有自行处理保存操作，Excel仍会强制拦截未保存的修改；同时你把业务逻辑写在事件最开头，无论后续用户是否取消关闭，逻辑都会先执行，自然会出现错误执行的问题。

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