ich habe im Archiv folgenden tollen Code gefunden, der mir schon sehr weiterhilft :-)
Nun versuche ich diesen Code auf einen Toggle Button umzuschreiben, stoße aber leider an meine Grenzen.
Der Toggle-Button soll zum einen ein Makro anstoßen, welches Blätter einblendet. Dies soll nur nach Passworteingabe geschehen. Als zweites kann man mit diesem Button per Makro die gleichen Blätter wieder ausblenden. Hierfür ist kein Passwort nötig. Kann mir jemand bitte helfen?
Danke schön im Voraus
Suzette
Sub Schaltfläche1_BeiKlick()
Const strPW = "g3hE1m" 'Hier das gewünschte Passwort eingeben !
If Application.InputBox("Bitte Passwort eingeben : ", "Code durch PW gesperrt", Type:=2) = _
_
_
_
strPW Then
MsgBox "BINGO !"
Else
MsgBox "Falsches Passwort !"
End If
End Sub