保存对加载项文件的更改

Posted 2023-05-07

【中文标题】保存对加载项文件的更改

【英文标题】：Save changes to Add-in file

【发布时间】：2015-07-24 18:20:46

【问题描述】：

我已经设置了一个例程来在关闭之前保存我的加载项，如下所示：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If ThisWorkbook.Saved = False Then ThisWorkbook.Save

End Sub

Excel 仍然提示我此消息“想要将更改保存到（文件名）？”

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

如何摆脱这条消息。

【问题讨论】：

该消息要么是您在插件代码中的消息，要么是指另一本打开的书。

我没有添加这条消息。什么可能导致此消息？也许我改变了一些导致这种情况的东西。

因为您使用的是加载项。我认为 ThisWorkbook 引用的是“加载项”工作簿，而不是主机工作簿。尝试将您的对象引用更改为“ActiveWorkbook”，看看是否有帮助。

【参考方案1】：

看看这是否有效

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

【讨论】：

我仍然收到消息。

【参考方案2】：

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

  thisworkbook.close

End Sub

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