WorkbookBeforeSave in Klassenmodul ausführen
05.12.2003 18:06:16
Maik
möchte einen Befehl: WorkbookBeforeSave ausführen. Genauer gesagt möchte ich den Dateinamen und den Pfad in eine Zelle schreiben. Das ist soweit kein Problem, aber wie geht das mit den scheiß Klassenodulen?
Wäre echthilfreich wenn mir jemand helfen könnte.
Maik
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub