Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Passwort checken

Forumthread: Passwort checken

Passwort checken
07.09.2005 13:23:07
Roli
hallo Leute
Ein kleiner Ansatz und dann funktioniert der Passwortcheck. Ich habe eine Userform : Eine Kombobox in der ein Name ausgewählt werden kann. Darunter ist das Passwortfeld. Möchte eine Prüfung einbauen, der prüft ob pw mit Name übereinstimmt.

Private Sub ok_Click()
Select Case frmMain_passwortcheck.pw
Case Is = "spo3" 'birgitt lorenz
Case Is = "spo1" 'reinhard pliessnig
End Select
End Sub

Diese Prüfung prüft nur den Textbox passwortcheck. Desweiteren soll überprüft werden ob Feld a1 (range("a1") leer ist.
Falls Passwort und/oder Name nicht eingewählt und auch Feld A1 leer ist, soll eine Messagebox erscheinen.
Liebe Grüße
Roli
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwort checken
08.09.2005 08:30:05
Heiko
Hallo Roli,
guckst du hier. Ich gehe davon aus das du eine Kombobox (pw) zur Namensauswahl hast, eine TextBox (Textbox1) zum eingeben des Paswortes und einen Commandbutton (ok) zu starten dieses Programmes. Die Namen für die Controls und Tabellenblätter muss du dir dann anpassen.

Private Sub ok_Click()
Dim strPWort As String
' pw Sollte die Combobox sein in der der Name ausgewählt wird.
If Me.pw = "" Then
MsgBox "Sie haben keinen Namen ausgewählt !", vbCritical
Exit Sub
End If
Select Case frmMain_passwortcheck.pw
Case "Meier"
strPWort = "a"
Case "Müller"
strPWort = "b"
Case "Schulze"
strPWort = "c"
Case "Kühn"
strPWort = "d"
Case "Pater"
strPWort = "e"
End Select
' Textbox 1 ist die Textbox in der das Passwort eingegeben wird.
If Me.TextBox1.Text = "" Then
MsgBox "Sie haben kein Passwort eingegeben.", vbCritical
Exit Sub
End If
If Sheets("Tabelle1").Range("A1") = "" Then
MsgBox "Sie haben in Zelle A1 nichts eingegeben.", vbCritical
Exit Sub
End If
If Me.TextBox1.Text <> strPWort Then
MsgBox "Das Passwort ist falsch versuchen sie es nochmal !", vbCritical
Me.TextBox1 = ""
Me.TextBox1.SetFocus
Exit Sub
Else
MsgBox "Alles ok. , nun kann es weitergehen."
Unload Me
End If
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige