Событие WorkbookOpen не срабатывает при открытии книг в «Защищенном представлении»

Question

2 Настройка монитора. 1 Активная рабочая тетрадь открыта на правом мониторе. Я хочу, чтобы недавно открытые книги были открыты на левом мониторе. Я нашел, как это сделать, и это работает, но если файл открывается в «Защищенном представлении», он не срабатывает.

Если я щелкну, чтобы включить редактирование, появится некоторое мерцание экрана, как будто оно сработало, но окно все равно остается на правом мониторе. Впоследствии открытие файла запускает макрос правильно. Тем не менее, это не будет работать для меня, так как я открываю вложения в Outlook.

Есть ли способ обойти это?

Это в модуле "ThisWorkbook" моего Personal.XLSB файла:

Private WithEvents app As Application


Private Sub Workbook_Open()
    Set app = Application
End Sub


Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
    If Not Win_Toggle = 1 Then Exit Sub

    With app
        .WindowState = xlNormal
        .Left = -500
        .WindowState = xlMaximized
    End With
End Sub

Переключатель, конечно, установлен на 1 ..

В идеале, он будет запускаться при открытии, и я не буду нажимать «включить редактирование».

Answer 1

Событие WorkbookOpen не сработает для книг, открытых в режиме защищенного просмотра. Вам необходимо событие ProtectedViewWindowOpen .

Private Sub app_ProtectedViewWindowOpen(ByVal Pvw As ProtectedViewWindow) 
    If Not Win_Toggle = 1 Then Exit Sub

    With app
        .WindowState = xlNormal
        .Left = -500
        .WindowState = xlMaximized
    End With        
End Sub