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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen