Tại Add_In để chạy các sự kiện trong Worksheet

[ThaiDieuAnh]

Em có 2 file gồm 1 Template A và Add_In B gồm 1 Module chứa lệnh Autpen và 1 Class để gọi các sự kiện trong Workbook và WorkSheet. Giờ em muốn khi em mở Add_In B lên rồi mở Template rồi mở Template A lên thì các sự kiện trong Class như SheetSelectionChange, SheetBeforeRightClick của Add In B vẫn chạy được không ạ?
Em xin cảm ơn

 

[HeSanbi]

Sửa toàn bộ:
-----------------------------
Private WithEvents MyWB As Workbook
Thành:
Private WithEvents App As Application

MyWB thành App

Set MyWB = ... Thành Set App = Application


------------------------------------------

Option Explicit
Private WithEvents App  As Application
'-------------------------------------'
Private Sub Class_Initialize()
  Set App = Application 'Hoặc CreateObject hoặc GetObject'
End Sub
'-------------------------------------'
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)

End Sub
'-------------------------------------'
Private Sub App_SheetActivate(ByVal Sh As Object)

End Sub
'-------------------------------------'
Private Sub App_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub
'-------------------------------------'
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub
'-------------------------------------'
Private Sub Class_Terminate()
    If Not App Is Nothing Then Set App = Nothing
End Sub