Question

excel vba怎么实现关闭时是否保存对话框不重复弹出

excel 关闭时会提示是否保存，选是时弹出一个请检查数据后保存的提示框，点ok后还会弹出是否保存的对话框。有什么办法，在点ok之后不再弹出是否保存对话框？
我在BeforeSave里是这么写的，执行完BeforeSave之后还会弹出是否保存的对话框。Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If xlsVersion.Cells(4, "F") = 0 Or xlsVersion.Cells(5, "F") = 0 Then MsgBox "请检查数据正确性。", vbExclamation, "提示" Cancel = True End IfEnd Sub点关闭后，弹出是否保存提示，选保存的话就提示他检查，选不保存的话就直接不保存关闭。问题出在选保存的时候弹出一个提示框，关闭提示框以后，是否保存的提示还会再弹出来。我想关闭提示框以后，什么都不做，返回excel，不保存也不关闭，让用户自己去保存。是否保存的对话框反复出现，这个地方不对。

Answer 1

目的是“提示”出现后，不出现保存窗口，不保存直接退出？

刚才搞了一下，不是很成功，逻辑上有点儿问题。如果你想保存，这时候出现提示，然后不保存退出，这和一开始需要保存产生了循环。如果直接在你的代码中增加ThisWorkbook.Close False，会产生保存后就可能不保存的退出的问题。

或者你将Cancel = False，这样就会保存退出，感觉比较安全

追问

点关闭后，弹出是否保存提示，选保存的话就提示他检查，选不保存的话就直接不保存关闭。
问题出在选保存的时候弹出一个提示框，关闭提示框以后，是否保存的提示还会再弹出来。
我想关闭提示框以后，什么都不做，返回excel，
不保存也不关闭，让用户自己去保存。

但是是否保存的对话框反复出现，这个地方不对。

Answer 2

Workbooks("B.xls").Close SaveChanges:=False