打开XLS工作簿时，App_Workbook打开未响应

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

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

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

我已经包含了几行代码来testingmacros与之交互。 该代码驻留在我的个人模板的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 

有什么想法吗？