Ich möchte, dass beim Speichern eines Excel-Files automatisch ein Textfeld mit einem Hinweis aufpoppt. Über Hilfe bin ich sehr dankbar.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Gut gepoppt?"
End Sub
Muss unter ThisWorkbook bzw. DieseArbeitsmappe gespeichert werden
Private Sub Workbook_Open()
MsgBox "Jetzt wird gespeichert"
End Sub
gruß
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Jetzt wird gespeichert"
End Sub