I found the below code posted around Nov 2005:

In a new Class module name clsXLEvents
Option Explicit
Private WithEvents xlApp As Excel.Application


Private Sub Class_Initialize()
Set xlApp = Excel.Application
End Sub


Private Sub xlApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal
SaveAsUI As
Boolean, Cancel As Boolean)
MsgBox "Tada"
End Sub


In a standard module named whatever
Option Explicit


Public xlApp As clsXLEvents


And in ThisWorkbook
Option Explicit


Private Sub Workbook_AddinInstall()
Set xlApp = New clsXLEvents
End Sub


Private Sub Workbook_AddinUninstall()
Set xlApp = Nothing
End Sub


Private Sub Workbook_Open()
Set xlApp = New clsXLEvents
End Sub

---

My question is is there a way to make a global Workbook_Open code?

I tried adding:

Private Sub xlApp_Workbook_Open(ByVal Wb As Workbook)

MsgBox "Open"

End Sub

In 'clsXLSEvents', but to no avail.

Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
MsgBox Wb.Name & " opened"
End Sub

In the class module, in the dropdown boxes at the top of the module, if you
select xlApp from the left dropdown, the right dropdown shows you what
events are available.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Bill Schanks" wrote in message
oups.com...
I found the below code posted around Nov 2005:

In a new Class module name clsXLEvents
Option Explicit
Private WithEvents xlApp As Excel.Application


Private Sub Class_Initialize()
Set xlApp = Excel.Application
End Sub


Private Sub xlApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal
SaveAsUI As
Boolean, Cancel As Boolean)
MsgBox "Tada"
End Sub


In a standard module named whatever
Option Explicit


Public xlApp As clsXLEvents


And in ThisWorkbook
Option Explicit


Private Sub Workbook_AddinInstall()
Set xlApp = New clsXLEvents
End Sub


Private Sub Workbook_AddinUninstall()
Set xlApp = Nothing
End Sub


Private Sub Workbook_Open()
Set xlApp = New clsXLEvents
End Sub

---

My question is is there a way to make a global Workbook_Open code?

I tried adding:

Private Sub xlApp_Workbook_Open(ByVal Wb As Workbook)

MsgBox "Open"

End Sub

In 'clsXLSEvents', but to no avail.

Thanks ... that works great!