Userform nach MsgBox schliessen?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 2000
nach unten

Betrifft: Userform nach MsgBox schliessen?
von: San Stefano
Geschrieben am: 25.04.2002 - 10:59:26

Hallo, mein Problem ist folgendes, ich habe eine Passwortabfrage die ich per Userform starte, aber das Passwort in eine MsgBox eingebe (zwecks 3 maliger Nachfrage ob das PW richtig ist).Nun verhält sich die Userform so, dass wenn ich das PW richtig eingegeben habe Sie immer noch extra beenden muss. Geht das nicht gleichzeitig, das wenn die MsgBox schliesst auch die Userform zumacht?
Vielen Dank im vorraus.
Hier der dazugehörige Code:
Private Sub cmdOK_Click()

Dim PWort, PWEingabe, Fehler
PWort = "Test"
Fehler = 1
nochmal:
PWEingabe = Application.InputBox("Bitte geben Sie das Paßwort ein" + Chr(10) + "Das Paßwort lautet: Test", "Paßwortabfrage")
If PWEingabe = False Then Exit Sub
If PWEingabe <> PWort Then
If Fehler < 4 Then
If Fehler = 1 Then
MsgBox "Sie haben noch 3 Versuche", vbOKOnly, "Falsche Eingabe"
ElseIf Fehler = 2 Then
MsgBox "Sie haben noch 2 Versuche", vbOKOnly, "Falsche Eingabe"
ElseIf Fehler = 3 Then
MsgBox "Geben Sie auf, Sie haben noch 1 Versuch", vbOKOnly, "Falsche Eingabe"
End If
Fehler = Fehler + 1
GoTo nochmal
Else
MsgBox "Der Zugriff wurde verweigert!", vbOKOnly, "Indentifikationsfehler"
End If
Else
Sheets("Blatt1").Visible = True
Sheets("Blatt2").Visible = True
End If
End Sub


Private Sub CommandButton1_Click()
Sheets("Blatt1").Visible = xlSheetVeryHidden
Sheets("Blatt2").Visible = xlSheetVeryHidden
Unload Me
End Sub

nach oben   nach unten

Re: Unload Me
von: Nike
Geschrieben am: 25.04.2002 - 11:21:44

Hi, nimm Unload Me oder schliese die Ganze Mappe gleich, mit workbook.close Bye Nike

nach oben   nach unten

Danke das funzt. (ot)
von: San Stefano
Geschrieben am: 25.04.2002 - 11:27:56

;-))

nach oben   nach unten

Re: Userform nach MsgBox schliessen?
von: Thomas N.
Geschrieben am: 25.04.2002 - 11:34:55

Warum eine Extra Userform? In nicht in einem Modul obiges einfach so? Ansonsten mit Hilfe von Unload bzw. Me.Hide .... Else Sheets("Blatt1").Visible = True Sheets("Blatt2").Visible = True Unload ----ODER---- Me.Hide End If Unload sorgt dafür, dass die USerform komplett aus dem Speicher entfernt wird - damit auch alle enthaltenen Variablen. Hide versteckt die Userform nur. Thomas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Userform nach MsgBox schliessen?"