Habe eine gaaaanz einfache Passwortabfrage, ohne grosse Knacksicherheit erstellt.
Leider habe ich ein Problem mit der folgenden Zeile:
If TextBox1.Value = ActiveCell Then
Denn einmal ist der Wert (TextBox.Value = "12345")
und einmal ist der Wert (ActiveCell.Value = 12345)
somit sind die Werte nicht übereinstimmend und somit tritt "Else" in kraft.
Auch das formatieren der Zelle als Text half irgendwie nix.
Meine Frage(n):
1. WIe kann man das lösen?
2. Gibt es vielleicht eine viel einfacher Möglichkeit, ein Passwort zu erstellen und prüfen zu lassen?
Gruss
Rolf
Nachfolgend noch das ganze Makro, falls mal einer nach Passwort im Archiv suchen sollte... ;)
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Tabelle2").Select
Range("IV65536").Activate
test = ActiveCell.Value
If TextBox1.Value = ActiveCell.Value Then
Range("A1").Select
Sheets("Tabelle1").Select
Range("A2").Select
Application.ScreenUpdating = True
TextBox1.Value = ""
UserForm11.Hide
Admin.Show
Else:
On Error Resume Next
NEIN = MsgBox("Falsches Kennwort!", vbOKOnly, "NEIN")
TextBox1.Value = ""
End If
End Sub