Will folgenden Code in Arbeitsmappe bekommen, um das Speichern zu verhindern :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "Diese Datei bitte nicht überspeichern!"
End Sub
Problem ist nur. Nun kann ich das Teil ja nicht mehr speichern. Den implementierten Code. Habe ich sozudagen selbst ausgesperrt. Danke für etwaige Hilfe...