MultiPage
12.03.2007 08:22:00
krab
ich habe eine MultiPage mit 10 Pages entworfen, bei dem die Schaltflächen, Text- und Bezeichnungsfelder jeder Page in ein Frame kommen, welches bei Aktivierung der Page ausgeblendet und bei Eingabe des richtiges Kennwortes in einer InputBox wieder eingeblendet wird.
Private Sub MultiPage1_Change()
Dim d As String
If MultiPage1.Value = 1 Then
Frame1.Visible = False
Beginn:
d = InputBox("Geben Sie das Passwort ein", "Passworteingabe")
If d = "" Then Exit Sub
If d = "Test" Then Frame1.Visible = True
If d <> "Test" Then
MsgBox ("Sie haben das falsche Kennwort eingegeben!")
GoTo Beginn:
End If
End If
End Sub
Ein kleines Prob bleibt allerdings: Wenn ich bei leerer InputBox auf OK klicke, wird die InputBox geschlossen. Eigentlich sollte doch in dem Fall diese Fehlermeldung kommen:
MsgBox: Sie haben das falsche Kennwort eingegeben!
Wenn ich diesen Teil des Codes weglasse, kommt auch bei "Abbrechen" die Fehlermeldung:
If d = "" Then Exit Sub
Was muss an meinem Code verändert werden, damit bei leerer InputBox und "OK" die Fehlermeldung kommt und bei "Abbrechen" die InputBox geschlossen wird?
Gruß
Krab