Excel 将更改保存到加载项文件

我设置了一个例程，以便在关闭前保存外接程序，如下所示：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If ThisWorkbook.Saved = False Then ThisWorkbook.Save

End Sub

Excel仍会提示我此消息“是否要保存对（文件名）的更改？”

在宏执行期间，我开始更改isAddin属性后，我开始收到此消息

如何删除此消息。

看看这是否有效

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  If ThisWorkbook.Saved = False Then ThisWorkbook.Save
  Application.DisplayAlerts = True
End Sub

---

还建议添加一条on error语句以将Application.DisplayAlerts设置回true

我仍然收到该消息。该消息可能是您的加载项代码中的消息，也可能是指打开的另一本书。我尚未添加此消息。是什么导致这些消息？可能是我改变了导致这种情况的原因。因为您正在使用外接程序。我认为此工作簿引用的是“加载项”工作簿，而不是宿主工作簿。尝试将对象引用更改为“ActiveWorkbook”，看看是否有帮助。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  If ThisWorkbook.Saved = False Then ThisWorkbook.Save
  Application.DisplayAlerts = True

  thisworkbook.close

End Sub