Passwort mit ToggleButton
29.12.2016 13:46:58
Jürgen
Ich hab ein kleines Problem mit dem ToggleButton.
Ich möchte mit dem Button Spalten ein und ausblenden allerdings erst durch eingabe von einem Passwort.
Da man mit der Input box keine Sterne anzeigen lassen kann bin ich auf eine Userform gegangen.
alles klappt, nur wenn ich das richtige Passwort eingebe und auf OK klicke klappt es nicht. Irgendwie bleibt alles hängen.
Kann mir wer bitte helfen woran das liegt?
Danke
mfg
Jürgen
dieser Code habe ich in der Userform
Const Passw = "Test"
Private Sub CommandButton1_Click()
If TextBox1.Value = Passw Then
passOK = True
Else
passOK = False
MsgBox "falsches Kennwort!"
TextBox1.Value = Clear
TextBox1.SetFocus
End If
'Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ToggleButton2_Click()
'Spalte ausblenden
Application.ScreenUpdating = False
Dim TB As ToggleButton
Dim passOK As Boolean
Set TB = ToggleButton2
If TB.Value = True Then
Pass_Material.Show
If passOK Then
'Passwort ist richtig
Sheets("Platten OPTI").Activate
Columns("K:W").EntireColumn.Hidden = False
Else
Sheets("Platten OPTI").Activate
Columns("K:W").EntireColumn.Hidden = True
End If
End If
Range("C4").Select
Application.ScreenUpdating = True
End Sub