Private Sub CommandButton16_Click()
Dim pWord$, Frage$, Meldung$
Frage = "Bitte Passwort eingeben:"
Meldung = "War wohl nix!"
While InputBox(Frage) "Test" 'hier dein Passwort eingeben
Beep
If MsgBox(Meldung, vbOKCancel) = vbCancel Then End
Wend
Call formOpen
End Sub
Sub formOpen()
UserForm1.Show
End Sub
Gruß
Linda
Sub CommandButton1_Click()
Dim passwort As String, pwCheck As String
passwort = "eins"
pwCheck = InputBox("Bitte Passwort angeben", "Passwort Test")
If pwCheck passwort Or StrPtr(pwCheck) = 0 Then
Msgbox "F a l s c h !",vbokonly + vbCritical, "PW Check"
else
UserForm2.Show
End If
End Sub
GreetZ Renée
Um eine Userform in Excel erst nach einer Passwortabfrage zu zeigen, kannst du folgenden VBA-Code verwenden. Achte darauf, dass du die VBA-Entwicklungsumgebung öffnest (ALT + F11) und den Code in die entsprechende Userform einfügst. Hier ist ein Beispiel, wie du das umsetzen kannst:
Öffne die VBA-Entwicklungsumgebung.
Füge eine Userform (UserForm1) hinzu.
Füge einen CommandButton (CommandButton1) in die Userform ein.
Kopiere und füge den folgenden Code in das Code-Fenster der Userform ein:
Private Sub CommandButton1_Click()
Dim passwort As String, pwCheck As String
passwort = "eins" ' Hier das Passwort setzen
pwCheck = InputBox("Bitte Passwort angeben", "Passwort Test")
If pwCheck <> passwort Or StrPtr(pwCheck) = 0 Then
MsgBox "Falsch!", vbOKOnly + vbCritical, "PW Check"
Else
UserForm2.Show
End If
End SubErstelle eine zweite Userform (UserForm2), die angezeigt werden soll, wenn das Passwort korrekt eingegeben wurde.
Teste die Userform, indem du die erste Userform öffnest und das Passwort eingibst.
Eine alternative Methode wäre, die Passwortabfrage in der Aktivierungsroutine der Userform zu integrieren. Das könnte so aussehen:
Private Sub UserForm_Activate()
Dim passwort As String, pwCheck As String
passwort = "eins"
pwCheck = InputBox("Bitte Passwort angeben", "Passwort Test")
If pwCheck <> passwort Or StrPtr(pwCheck) = 0 Then
Unload Me
End If
End SubIn diesem Fall wird die Userform geschlossen, wenn das Passwort falsch eingegeben wird oder die Abbrechen-Taste gedrückt wird.
Hier ist ein konkretes Beispiel zur Implementierung einer Passwortabfrage in einer Excel-Anwendung:
Du kannst auch mehrere Userforms für verschiedene Zwecke erstellen, die jeweils ihren eigenen Passwortschutz haben.
1. Wie kann ich mehrere Benutzer mit unterschiedlichen Passwörtern einrichten?
Du kannst ein Array oder eine Datenbank verwenden, um verschiedene Benutzer und deren Passwörter zu speichern.
2. Was passiert, wenn ich das Passwort vergesse?
In diesem Fall gibt es keine Möglichkeit, die Userform zu betreten. Es ist ratsam, eine Möglichkeit zur Passwortwiederherstellung zu implementieren.
3. Funktioniert das auch in Excel 365?
Ja, der oben genannte Code funktioniert in allen aktuellen Versionen von Excel, einschließlich Excel 365.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen