如何让 Excel 在关闭时提示保存？

【问题标题】：How can I make Excel prompt to save on close?如何让 Excel 在关闭时提示保存？
【发布时间】：2019-06-03 21:09:50
【问题描述】：

当您关闭 Excel 并编辑了 VBA 代码时，它不会提示您保存。我只写了300行代码，没有保存。

关闭时如何强制提示？

【问题讨论】：

标签： excel vba

【解决方案1】：

它应该会提示您保存。检查您没有在代码中的某处将 SetWarnings 设置为关闭

【讨论】：

【解决方案2】：

您可以按照 Kevin 的建议更改 SetWarnings 设置。

但我通常会在退出时将我的所有 excel 项目设置为 自动保存。

为此，只需添加 ThisWorbook 模块：

代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Close SaveChanges:=True
End Sub

当然，如果用户真的把你的文件搞砸了，然后保释，它会不经询问就保存它，所以它可能很危险！

【讨论】：

【解决方案3】：

在代码执行行前添加：

response(msgbox("Do you want to save this copy of your file?",VByesNo,"")

if response =VBYes, then

line of code to save

Else

msgbox "File was not saved",vbOK,""

Exit Sub
End if

【讨论】：