强制确定启用宏的MS隐私警告消息使用VBA进行MS excel

Question

我在excel中编写了一个宏，计划每天运行，并且工作正常。

但问题是，每当遇到保存excel文件的代码时，它会提示如下警告消息：

这是在excel文件中触发宏的VBScript代码。

Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("C:\foo\bar.xlsm", 0, FALSE)
xlApp.Run "Macro1"
xlBook.Save   ' Here is where i need to force OK this warning message
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing

现在有一个VBA，我可以在保存时添加，这样我就不必每次都手动点击OK，这可以用力吗？

提前致谢！