如果用戶在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