Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige