将更改保存到加载项文件

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

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

仍然Excel提示我这个消息“想要保存您的更改（文件名）？

在macros执行过程中开始更改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 

还build议添加一个错误语句来将Application.DisplayAlerts设置回true