excel 的退出对话框

来源：百度知道 编辑：UC知道 时间：2024/06/16 21:36:02
一般在excel做了修改后，退出时会弹出一个是否保存的对话框，我做了一个退出的按钮想调用一下这个对话框，不知道在单击按纽是怎么调出来？
哪位大虾能够提供源码为谢！

Sub XXX()
answer = MsgBox("是否保存对“" & ActiveWorkbook.Name & "”的更改?", vbYesNoCancel + vbExclamation, "Microsoft Excel")
Select Case answer
Case vbYes
ActiveWorkbook.Close True
Case vbNo
ActiveWorkbook.Close False
End Select
End Sub

Sub SaveOpen()
answer = MsgBox("是否要保存对“" & ActiveWorkbook.Name & "”的修改?", vbYesNoCancel + vbExclamation, "Microsoft Excel")
Select Case answer
Case Is = vbYes
ActiveWorkbook.Close True
Case Is = vbNo
ActiveWorkbook.Close False
End Select
End Sub

找到键值就可以了.