为什么我的Worksheet_Activate不会火?

Tel*_*tia 1 excel vba excel-vba

我正在为需要在打开工作簿时运行代码的客户端创建工作簿模板.问题是我的Worksheet_Activat事件处理程序没有运行.

来自ThisWorkbook的代码:

Private Sub Workbook_Open()
    Application.EnableEvents = True
    MsgBox "Hello World!"
    ThisWorkbook.Activate
    Sheets("Product").Activate
    Sheets("Raw Data").Activate
End Sub
Run Code Online (Sandbox Code Playgroud)

这段代码运行正常,一旦我创建了模板实例,就会出现MsgBox.

工作表中的代码(它们与MsgBox的不同字符串相同):

Private Sub Workseet_Activate()
    MsgBox "RawData"
End Sub
Run Code Online (Sandbox Code Playgroud)

通过代码激活工作表时,代码不会运行,当我手动更改工作表时也不会运行代码.什么会导致事件处理程序不处理事件?

ror*_*.ap 6

你有一个拼写错误:Workseet_Activate()应该是Worksheet_Activate().