С помощью всех я пришел к решению. Используйте следующий код для подавления предупреждений, предотвращения вычислений и подавления обновлений экрана. Еще один ключ к немедленному открытию электронной таблицы - это исправить все связанные с этим ссылки. По-видимому, если есть неработающие ссылки, это все равно вызовет проблему с задержкой при загрузке электронной таблицы, хотя ей не нужно вычислять или обновлять любые формулы, ссылающиеся на них.
Application.DisplayAlerts = False
Application.Calculation = xlManual
Application.ScreenUpdating = False
Workbooks.Open "foo_bar.xlsx",ReadOnly:=True, UpdateLinks:=False