Question

求关闭Excel提示是否要保存的代码

RT

Answer 1

Excel自己就有这个功能啊？不过如果你要的话，我就给你：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("是否保存？", vbYesNo + vbQuestion, "保存提示") = vbYes Then
ActiveWorkbook.SaveAs Filename:="C:\123.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If
End Sub