Klassenmodul in Personl.xls
09.01.2010 09:35:21
Reinhard
Hallo Wissende,
ich möchte aus der personl.xls heraus auf das "Speichern" einer beliebigen anderen Mappe reagieren.
Dazu habe ich in der personl.xls ein Klassenmodul mit dem Namen clsWorkbook und folgendem Code:
Option Explicit
Public WithEvents App As Application
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As _
Boolean)
MsgBox "bin in perso"
End Sub
in Modul1 der personl.xls habe ich den Code
Option Explicit
Dim AppObject As New clsWorkbook
Leider tut sich gar nix wenn ich eine andere Mappe speicher. Was muß ich ändern?
Danke ^ Gruß
Reinhard