Habe folgende Routine eingebaut:
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!
Hallo Stefan,
das ist doch normal, dass es im Entwurfmodus nicht geht.
Oder versteh ich das was nicht richtig?
Gruß
Jutta
Aber wie verhinder ich, das der Entwurfsmodus eingeschaltet wird?
