Использование VBA, как предотвратить появление сообщения при открытии файла?

Question

Я создаю макрос, который открывает множество файлов, обновляет их, а затем сохраняет и закрывает. Все работает без сбоев, однако для 2 файлов при их открытии появляется сообщение "Файлы запускаются в списке включения - заголовки могут отсутствовать". это останавливает макрос до тех пор, пока не будет нажата кнопка "ОК". Я использовал "Application.DisplayAlerts = False" ранее, но, похоже, он здесь не работает. Мой код выглядит следующим образом:

Public Sub Refresh_All()

Dim filepathstr As String
Dim filename As String
Dim wbk As Workbook

filepathstr = Sheet1.Range("filepath").Value

For Each cell In Sheet1.Range("workbooks")

If Not cell.Value = "" Then

    filename = cell.Value
    Application.DisplayAlerts = False
    Set wbk = Workbooks.Open(filepathstr & filename, False)


    ''''**REFRESH**''''''
    SAPBexrefresh (True)

    Application.DisplayAlerts = False
    wbk.Save
    wbk.Close False
    Application.DisplayAlerts = True

End If

Next cell

MsgBox "The Macro has finished; BW Reports are refreshed."


End Sub

Любая помощь будет принята с благодарностью!

Answer 1

Добавлять

Application.EnableEvents=False

перед открытием ВБ и верните обратно в истину потом

В качестве альтернативы используйте:

Application.AutomationSecurity=msoAutomationSecurityForceDisable

Не забывайте возвращаться к тому, что есть у пользователя...