Workbook_before_save
26.04.2002 13:27:14
Stefan Noll
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!
Anzeige