Ich habe ein Tabellenblatt wo Spalte N bis AB ausgeblendet ist und dann habe ich ein Blattschutz mit einem Passwort "a" aktiviert.
Jetzt habe ich ein AktiveX Steuerelement mit dem Code:
Private Sub CommandButton4_Click()
Dim Passwort As String
Passwort = InputBox("Bitte Passwort eingeben", "Passwort-Abfrage", "Passwort hier eingeben")
If Passwort "tbl" Then Exit Sub
MsgBox "Passwort ist Ok" '
Range("AG11").Select
ActiveSheet.Unprotect
Columns("N:AB").Select
Range("N3").Activate
Selection.EntireColumn.Hidden = False
Range("AC11").Select
Wenn ich auf diesem Button drücke und das Passwort "tbl" eingebe, kommt wieder ein Feld vom Blattschutz wo ich das Passwort "a" eingeben muss und danach ist Blattschutz deaktiviert und er blendet die ausgeblendeten Spalten automatisch ein.
Wer kann mir helfen das ich nicht zweimal Passwort eingeben muss.
Danke schonmal für eure Unterstützung !!!!!
LG Mario