Kategorie:
(Tipp 113)
Wie kann ich erreichen, da� ein Makro beim Speichern ausgeführt wird?
Der Code muss in das Klassenmodul der Arbeitsmappe. Also Doppelklick auf DieseArbeitsmappe und dann einfügen.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim intFrage As Integer intFrage = MsgBox(" Möchten Sie die Arbeitsmappe wirklich speichern?", vbYesNo) If intFrage = vbNo Then Cancel = True End Sub