如何解决如果用户离开时在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
副作用是,如果打开一本书以上,则在它们之间切换也会触发消息
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。