如何用VBA强制不保存并仅关闭当前工作簿？解决弹窗与误关问题

1. 替换代码实现仅关闭当前工作簿 #

把activation用户窗体中的UserForm_QueryClose代码替换为以下内容：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 强制不保存并关闭当前工作簿，不影响其他打开的工作簿
    ThisWorkbook.Close SaveChanges:=False
End Sub

• 核心说明：ThisWorkbook.Close仅针对当前代码所属的工作簿执行关闭操作，不会关闭整个Excel程序；SaveChanges:=False参数直接跳过保存提示，强制不保存任何修改。

2. 解决无修改却弹出保存提示的问题 #

即使没有手动编辑工作簿内容，Excel也可能因用户窗体加载、VBA代码执行等操作，自动标记工作簿为"已修改"。通过上述代码中的SaveChanges:=False参数，就能彻底跳过保存提示，直接关闭工作簿。

如果需要从根源避免工作簿被标记为脏状态，可在ThisWorkbook模块的Workbook_Open过程末尾添加一行代码（可选）：

Private Sub Workbook_Open()
    ' 原有代码保持不变...
    
    ' 手动标记工作簿为已保存状态，避免无修改触发保存提示
    ThisWorkbook.Saved = True
End Sub

内容的提问来源于stack exchange，提问作者kartik