Hallo Gast,
kann dir bei dem ersten Teil schon mal direkt helfen. Du must in der Klasse "nenne ich es mal" DieseArbeitsmappe folgende Sub anlegen.
Diese muss genauso heißen. Diese wird dann bei dem Speicherbefehl aufgerufen.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Datei wird gespeichert"
End Sub
|