' Folgende Codezeilen in ein "normales" Modul der Arbeitsmappe kopieren
Option Explicit
 
Public App As clsApp
 
 
' Folgende Codezeilen in ein Klassenmodul (Name = clsApp) einfügen
Option Explicit
 
Private WithEvents oApp As Application
 
Private Sub Class_Initialize()
  Set oApp = Application
End Sub
 
Private Sub Class_Terminate()
  Set oApp = Nothing
End Sub
 
Private Sub oApp_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
  MsgBox "Arbeitsmappe """ & Wb.Name & """ wurde aktiviert..."
End Sub
 
Private Sub oApp_WindowDeactivate(ByVal Wb As Workbook, ByVal Wn As Window)
  MsgBox "Arbeitsmappe """ & Wb.Name & """ wurde deaktiviert..."
End Sub
 
' Folgende Codezeilen in "DieseArbeitsmappe" unter "Micorosoft Excel Object" 
' einfügen
Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Set App = Nothing
End Sub
 
Private Sub Workbook_Open()
  Set App = New clsApp
End Sub

Viel Spass,
R@lf