如果用户在XL消息上单击否，请提示消息“是否要保存更改？”在离开时

Question

我有一个工作簿，我想确保用户确信他想要退出而不保存更改。如果用户在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?" 

谢谢。

Answer 1

Workbook_Deactivate事件在保存对话框关闭后触发。

您将需要出示模式MSGBOX和处理性反应，问题Thisworkbook.Save如果需要

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 

有副作用，如果超过一种书是开放的，它们之间的切换能发射meesage