打开XLS工作簿时App_WorkbookOpen没有响应

Question

我正在编写一个简单的宏来解决使用XLS和多个监视器的人的常见问题。通常，工作簿保存在第二个窗口中，重新打开时不会出现在主窗口中。

为了解决这个问题，我试图使用App_WorkbookOpen函数并遇到了一些问题。

1. 此代码仅在打开XLS的新实例时运行。
2. 此代码打开工作簿，但不会在Windows菜单中显示它。
3. 此代码仅与personal.xls模板进行交互。

我已经包含了几行代码来测试宏与之交互的内容。 该代码位于我个人模板的ThisWorkbook部分。

核心代码如果放在一个单独的worbook中，但我希望它能在所有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

有什么想法吗？