Исправьте с помощью кода: «Части вашего документа могут содержать личные данные, которые не могут быть удалены инспектором документов»

Question

У меня есть следующий скрипт «MyTest.vbs»:

Dim objXLApp
Set objXLApp = CreateObject("Excel.Application")
objXLApp.visible= True
objXLApp.DisplayAlerts = false

objXLApp.Workbooks.Open "F:MyFolder\test.xlsm"
objXLApp.Run "test.xlsm!Module1.main"

objXLApp.Workbooks("test.xlsm").Save
objXLApp.Workbooks("test.xlsm").Close

Когда я запускаю скрипт, появляется следующая ошибка:

Be careful! Parts of your document may include personal information that cannot be removed by the document inspector.

Я знаю, что могу это исправитьошибка вручную, но я хотел бы отключить эту ошибку с кодом.

Кто-то знает, как?

Answer 1

Существует метод VBA (не VBS), который называется Workbook.RemoveDocumentinformation(xlRDIAll). Взгляните на это https://docs.microsoft.com/office/vba/api/excel.workbook.removedocumentinformation

Вы должны просто добавить это в свой Module1.main.