Workbook_before_save

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Password
Password = InputBox("Password:")
If Not Password = "test" Then Cancel = True: Application.DisplayAlerts = True: Application.Quit
End Sub

Wenn ich jetzt in den Entwurfsmodus für Schaltflächen wechsel, wird die Routine nicht mehr ausgeführt und SPeichern wird möglich, was ich eigentlich verhindern wolte!