ich möchte über einen Commandbutten Spalten aus- und einblenden. Bevor der Befehl ausgeführt wird, soll dies mit einem Passwort freigegeben werden.
Welcher Spezialist hat vielleicht eine Idee.
Vielen Dank schon mal.
Grüße
Kerstin
Private Sub Userform_Initialize()
Dim frm As UserForm
Set frm = Password
frm.TextBox1.PasswordChar = "*"
frm.TextBox1.SetFocus
frm.Label1.Visible = False
End Sub
Private Sub CommandButton1_Click()
If TextBox1.Text = "Dein Passwort" Then
Unload Me
'Hier den Code für das ein/ausblenden
Else
Label1.Visible = True
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End If
End Sub