Worksheet_Activate 打开工作簿时不触发

Question

两天前，当我打开文档时，我在 Excel sheet 中填充 ActiveX 组合框的代码停止运行。从那以后，我发现 Worksheet_Activate() 在我打开 sheets 时不再触发。

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

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

但是，如果我单击另一个选项卡并单击返回包含代码的 sheet，它会触发。

我试过添加 Application.EnableEvents = True 和 Worksheets("Sheet1").Activate 到 Workbook_Open（触发）但仍然没有运气.

我们是运行 Excel 2010 年，我同事的机器上也出现了同样的问题。有什么想法吗？

Answer 1

在您的 Workbook_Open 事件中关闭 ScreenUpdating，激活一个不同的 sheet，激活您希望事件触发的 sheet，打开 ScreenUpdating回来。

Answer 2

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

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

像 Worksheets("Sheet1") 那样通过 Name 引用工作表也不是好的做法，除非您有充分的理由这样做。更好的是使用 CodeName。有关详细信息，请参阅 this post。

Answer 3

此设置可能也在起作用：

Application.ScreenUpdating = true

Worksheet_Activate 打开工作簿时不触发

Worksheet_Activate not triggering when workbook opened

excel

vba

events

activation