保存对加载项文件的更改

Question

我设置了在关闭前保存加载项的例程，如下所示：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If ThisWorkbook.Saved = False Then ThisWorkbook.Save

End Sub

仍然 Excel 提示我此消息 "Want to save your changes to (filename)?"

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

如何删除此消息。

Answer 1

看看这是否有效

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

Answer 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

还建议添加一条关于错误的语句，将 Application.DisplayAlerts 设置回 true

保存对加载项文件的更改

Save changes to Add-in file

excel

vba

save

add-in