Passwortschutz
19.09.2005 13:39:55
Kira
Ich habe folgenden Code um etwas (hier: Speichern) mit einem Passwort zu schützen:
Sub Passwort()
Dim pass As String
Do
pass = InputBox("Bitte geben Sie das Passwort ein.", Title:="Passworteingabe")
Select Case pass
Case "test"
Application.Dialogs(xlDialogSaveAs).Show (strDateiname)
Case ""
MsgBox "Bitte geben Sie das richtige Passwort ein.", Title:="Falsche Passworteingabe"
End Select
Loop Until pass = "test"
End Sub
Wie muss ich das noch ändern, um das ganze über Abbrechen bzw. das Kreuz oben rechts verlassen zu können?
Gruß
Kira