Simple Passworteingabe
08.05.2021 14:19:40
Philipp
kurz zur Erklärung..
Die 1. Userform (ich nenne sie mal Installation / Sprachauswahl) besteht aus einer Combobox und einem Button.
Die Combobox wird mit
.AddItem "Deutsch"
.AddItem "English"
Sheets("testmappe").Range("N1").Value = ComboBox1.Value.
Steht nun Englisch, so ist die Sprache Englisch.. Steht Deutsch = deutsch ....
Das klappt alles..
--
Jetzt möchte ich gerne in die erste Userform (Installer / Sprachauswahl) eine Art Passwortschutz einbauen.
D.h.: ich möchte eine Textbox in die Form aufnehmen. Da soll nur 1 Passwort funktionieren. Zum Beispiel: "codewort123".
Dieses soll ebenfalls per Commandbutton in diese Excel Mappe geschrieben werden. Das habe ich soweit.
Nun aber zum Problem..
Ich möchte die Userform 2 - die eigentlich Form nur Starten lassen / benutzbar machen, wenn das eingegebene Passwort (welches in der Mappe "testmappe" Zelle A1 = dem richtigen Passwort "codewort123" entspricht.
Wie gesagt es soll eine Simple Passworteingabe sein und kein Fort Knox :D..
Mein Lösungsansatz war
Userform 1:
Private Sub CommandButton1_Click()
Sheets("testmappe").Range("A1").Value = TextBox1.Value
End Sub
Sub Userform_load() (Name Button)
If Sheets("testmappe").Range("A1").Value LIKE "codewort123"
Then
userform2.Show
Else
MsgBox "Fehler - kein Starten möglich"
End Sub
Kann mir jemand Helfen?
Liebe Grüße
und ein schönes Wochenende
Anzeige
