Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1280to1284
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
Inhaltsverzeichnis

Userform Passwort - Geht das eleganter?

Userform Passwort - Geht das eleganter?
02.10.2012 11:22:19
Dietmar
Guten Tag in die Runde,
habe mir eine Userform mit alternativer PW-Eingabe gebastelt.
Funktioniert auch so wie es soll. In A2 und B2 des Sheets *Eingangsseite* sind die beiden Möglichkeiten für die PW-Eingabe hinterlegt (Master-PW und 12345678)
Allerdings kommt mir der Code recht holperig vor. Jemand eine Idee, wie ich den Code straffen kann?
Private Sub cmd_OK_Click()
Application.ScreenUpdating = False
If txtPasswort.Text  Sheets("Eingangsseite").Range("A2") Then
If txtPasswort.Text  Sheets("Eingangsseite").Range("B2") Then
MsgBox "Nein!" _
& vbCrLf & vbCrLf & "Das Passwort ist leider FALSCH."
Application.ScreenUpdating = True
MsgBox "Die Datei wird geschlossen", vbInformation, "Hinweis"
ThisWorkbook.Close savechanges:=False
Else
MsgBox "OK, Du bist berechtigt."
Unload Me
Sheets("Eingangsseite").Activate
Sheets("Eingangsseite").Range("A4").Value = "12345678 akzeptiert"
Application.ScreenUpdating = True
End If
Else
MsgBox "OK, Du bist berechtigt."
Unload Me
Sheets("Eingangsseite").Activate
Sheets("Eingangsseite").Range("A4").Value = "Master-PW akzeptiert"
Application.ScreenUpdating = True
End If
End Sub
Vielen Dank und viele Grüße
Dietmar aus Aachen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If ... And ... Then
02.10.2012 12:03:47
Matthias
Hallo Dietmar
Sollte doch schon reichen
If txtPasswort.Text  Tabelle1.Range("A2") And txtPasswort.Text  Tabelle1. _
Range("B2") Then
MsgBox "Nein!" & vbLf & vbLf & "Das Passwort ist leider FALSCH."
Else
MsgBox "Ok!" & vbLf & vbLf & "LogIn erfolgreich."
End If
Gruß Matthias

Danke, schön schlank :-)
02.10.2012 15:07:22
Dietmar
Hallo Matthias,
na das sieht doch schon ganz anders aus :-)
Besten Dank!
Viele Grüße
Dietmar
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige