将新的Excel文档保存为无macros的工作簿而不提示

我正在使用Excel 2010.我有一个启用了Excelmacros的模板，该模板与设置为在使用此模板创build新文档时自动刷新的文本文件具有数据连接。

在保存新文档之前，以下macros在“ThisWorkbook”对象内移除数据连接：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Do While ActiveWorkbook.Connections.Count > 0 ActiveWorkbook.Connections.Item(ActiveWorkbook.Connections.Count).Delete Loop End Sub 

当用户点击保存图标/点击ctrl + S时，input一个文件名，然后点击保存以保存为一个无macros的Excel工作簿（默认和必需的文件types），它们提示消息，并提示：

以下function无法保存在无macros工作簿中：

•VB项目

要保存具有这些function的文件，请单击“否”，然后在“文件types”列表中select启用macros的文件types。

要继续保存为无macros工作簿，请单击是。

是否有可能防止此消息出现，并让Excel假定用户想要继续使用一个无macros的工作簿？

我已经搜遍遍了，理解我可以将代码添加到删除自己的工作簿对象，以便Excel没有VB项目导致此消息，但这将要求每个用户更改信任中心设置（信任访问到VBA项目对象模型），我想避免。

我也看到了使用的build议：

 Application.DisplayAlerts = False 

但不能得到这个工作。 它的每个例子似乎都在一个子处理文件的保存，而在我的情况下，BeforeSave子文件以默认的非vba方式保存之前结束，这可能是为什么它不起作用？

子属性结束/保存实际发生之前，此属性是否重置为默认真？

对于任何我可能已经放弃的废话都抱歉，我对VBA的经验非常有限。