ich möchte mit "Cancel = True" Speichern nicht erlauben,
aber wer "Speichern unter" drückt, das soll schon gehen!
geht das?
LG Jürgen
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show
Application.EnableEvents = True
End Sub