Worksheet_Activate 未在工作簿打开时触发

Posted 2023-03-29

【中文标题】Worksheet_Activate 未在工作簿打开时触发

【英文标题】：Worksheet_Activate not triggering when workbook opened

【发布时间】：2015-04-04 15:04:27

【问题描述】：

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

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

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

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

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

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

【问题讨论】：

旧帖，但如果有人找这个，推荐阅读是this article

【参考方案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

按名称 （如Worksheets("Sheet1")）引用工作表也不是好习惯，除非您有充分的理由这样做。更好的是使用 CodeName。详情请见this post。

【讨论】：

只是强调/重申将激活子例程声明从私有（默认）更改为公有非常重要。例如“Private Sub Worksheet_Activate()”应改为“Public Sub Worksheet_Activate()”，否则无效。

@JohnJoseph：这正是我在答案中的 Workbook_Open() 子的 cmets 中所写的。错误处理程序只是为了捕获“对象不支持此属性或方法” - 调用私有或不存在的 Worksheet_Activate() 例程会引发的错误。

是的，我知道 - 这就是我说“强调/重述”的原因 - 这很重要，但很容易错过。很好的答案 - 它帮助了我！我投了赞成票。

【参考方案2】：

在您的Workbook_Open 事件中关闭ScreenUpdating，激活不同的工作表，激活您希望事件触发的工作表，重新打开ScreenUpdating。

【讨论】：

非常感谢，看来问题已经解决了！你能解释为什么/如何解决这个问题吗？也就是说，问题的原因是什么，为什么会突然发生？再次感谢！

@jaegee，如果工作表是当前活动的工作表，则不会发生激活事件。这只是Excel中的一个错误。另外，请用绿色复选标记将我的答案标记为正确。

【参考方案3】：

此设置也可能在起作用：

Application.ScreenUpdating = true