VBA Workbook.Open Ошибка времени выполнения '91'

Question

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

Private Sub Workbook_Open()
   Application.WindowState = xlMaximized
   ActiveWindow.WindowState = xlMaximized
End Sub

Сохраняется «VBAProject (PERSONAL.XLSB)» в «ThisWorkBook»

Код максимизирует рабочую книгу, но выдает ошибку времени выполнения «91», когда достигает «ActiveWindow.WindowState = xlMaximized». Кто-нибудь может мне помочь с этим?

спасибо

Answer 1

Ваш код предполагает, что есть ActiveWindow, что не гарантируется.

Используйте If Not [object] Is Nothing Then... для проверки пригодности ссылки на объект:

Private Sub Workbook_Open()
   Application.WindowState = xlMaximized
   If Not ActiveWindow Is Nothing Then ActiveWindow.WindowState = xlMaximized
End Sub