打开工作簿时不触发Worksheet_Activate

Question

两天前，当我打开文档时，用于填充Excel工作表中ActiveX组合框的代码停止运行。此后，我发现打开工作表时不再触发Worksheet_Activate（）。

现在，即使我仅使用工作表1中的以下代码创建一个简单的工作簿，也不会在打开工作簿时触发。

Private Sub Worksheet_Activate()
   MsgBox ("Worksheet has been activated")
End Sub

但是，如果我单击另一个选项卡，然后单击返回包含该代码的工作表，它将触发。

我尝试过添加Application.EnableEvents = True和Worksheets（“ Sheet1”）。激活到Workbook_Open（确实会触发），但还是没有运气。

我们正在运行Excel 2010，同事的计算机上也发生了相同的问题。有任何想法吗？

Answer 1

我知道这是一个较旧的问题，但是无需先激活另一个工作表，然后重新激活您想要的工作表：

Private Sub Workbook_Open()
    ' Bug in Excel:
    ' The Worksheet_Activate event does not fire for the sheet that is active
    ' when the workbook is opened, so call it explicitely. Make sure that
    ' Worksheet_Activate() is declared as Public.
    ' Ignore ActiveSheets without (Public) Worksheet_Activate()
    On Error Resume Next
    Call ActiveSheet.Worksheet_Activate
    On Error GoTo 0
End Sub

像in中那样，通过Name引用工作表也不是一个好习惯Worksheets("Sheet1")，除非您有充分的理由这样做。更好的方法是使用CodeName。有关详细信息，请参阅这篇文章。

Answer 2

在您的Workbook_Open事件中关闭ScreenUpdating，激活另一个工作表，激活您希望事件触发的工作表，然后重新ScreenUpdating打开。