Verhalten wenn Passwort leer
20.10.2012 11:24:33
Chris
folgendes Makro überprüft erfolgreich, ob ein bestimmtes Passwort vorhandne ist und selektiert dann Sheet(1).range("O1").select
Das Problem ist, dass O1 auch dann aktiviert wird, wenn man KEIN Passwort eingibt, die Textbox also leer ist.
Soll aber nicht, wenn Textbox leer ist, dann soll die Userform wie angegeben neu gestartet werden und "Sheet(1).Range("k500") gezeigt werden.Das funktioniert auch, allerdings nur einmal. Bei der zweiten Eingabe eins leeren Passwortes wird wieder O1 selektiert. Findet jmd den "Fehler"?
Private Sub CommandButton1_Enter()
Dim myPw As String
Dim mypw2 As String
Dim mypw3 As String
Dim WkSh As Worksheet
'Dim Eingabe As Variant
Dim rZelle As Range
myPw = "quit"
mypw2 = "test"
mypw3 = ""
If Me.TextBox1.Text = myPw Then
Application.DisplayAlerts = False
bolgesperrt = False
Application.Quit
SendKeys "%{F4}"
End If
If Me.TextBox1.Text = mypw3 Then
MsgBox "Sie müssen ein gültiges Passwort eingeben!", vbCritical
Unload Me
UserForm1.Show
End If
Set WkSh = ThisWorkbook.Worksheets("Kassierer-Verwaltung") ' den Tabellenblattnamen ggf. _
anpassen!
With WkSh.Columns(1)
Set rZelle = .Find(What:=UserForm1.TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
Tabelle1.Range("A15").Value = ""
WkSh.Range("B29").Value = WkSh.Range("B" & rZelle.Row).Value
Sheets(1).ScrollArea = ""
Tabelle1.Range("O1").Select
If Me.TextBox1.Text = mypw2 Then
Sheets("Admin-Bereich").Visible = True
Sheets("Admin-Bereich").Activate
Unload Me
End If
Unload Me
Else
MsgBox "Falsches Passwort!", vbInformation
Unload Me
UserForm1.Show
End If
End With
End Sub