App_WorkbookOpen не отвечает при открытии книг XLS

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

Чтобы обойти это, я попытался использовать функцию App_WorkbookOpen и столкнулся с несколькими проблемами.

  1. Этот код запускается только при открытии нового экземпляра XLS.
  2. Этот код открывает рабочую книгу, но не отображает ее в меню Windows.
  3. Этот код взаимодействует только с шаблоном personal.xls.

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

Основной код работает, если он помещен в отдельный журнал, но я бы хотел, чтобы он работал во всех ситуациях Wb_open.

Option Explicit Public WithEvents App As Application Private Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) On Error Resume Next 'error handling, remove when final Application.ScreenUpdating = False If ActiveWindow.Left > Application.UsableWidth Then ActiveWindow.Left = 15 ActiveWindow.Top = 10 End If MsgBox "New Workbook:" & Wb.Name 'what wkbook?, remove when final If Error Then End End Sub 

Есть предположения?

Давайте будем гением компьютера.