如果用户离开时在XL消息“您要保存更改吗？”上单击否，则出现提示消息

问题描述

| 我有一本工作簿，我想确保用户确实确定他要退出而不保存更改。如果用户在离开时在XL消息“您要保存更改？”上单击否，是否可以提示消息？ 我知道有一个BeforeSave事件，但是此事件是在XL提示之前触发的，对于我而言，我想在AFTER之后。 例：

- User click the X for leaving the Workbook.
- XL prompt user for saving changes.
- User click NO.
- I would like to prompt again something like \"ARE YOU SURE?\"

谢谢。     

解决方法

        保存对话框关闭后，将触发Workbook_Deactivate事件。 您将需要显示一个模式MsgBox并处理响应，发出Thisworkbook。

Private Sub Workbook_Deactivate()
    Dim res As VbMsgBoxResult
    If Not ThisWorkbook.Saved Then
        res = MsgBox(\"Save Now?\",vbYesNo,\"Book Not Saved\")
        If res = vbYes Then
            ThisWorkbook.Save
        End If
    End If
End Sub

副作用是，如果打开一本书以上，则在它们之间切换也会触发消息