ToggleButton aktiv trotz Blattschutz

[Hunterson]

Hallo liebe Excel gemeinde,


Zur besseren Übersichtlichkeit in einer Tabelle habe ich verschiedene Spalten über ein ToggleButton Makro ausgeblendet.
Das funktioniert soweit.

Jetzt würde ich aber gerne das Tabellenblatt schützen und den ToggleButton weiter nutzen....
Dazu bin ich zu doof.....
Excel meldet:
 "Laufzeitfehler '1004':
Die Hidden-Eigenschaft des Range-Projektes kann nicht festgelegt werden.

Geht das überhaupt??
Wennja, bin ich für das wie eine dankbarer Abnehmer

Das Makro....

Code:

Private Sub ToggleButton1_Click()

  With ToggleButton1
    If .Value = True Then
        Range("T:T,U:U,W:W,X:X,Z:Z,AA:AA,AC:AC,AD:AD,AF:AF,AG:AG,AI:AJ").EntireColumn.Hidden = True
        .Caption = "ZielDatum einblenden"
    Else
        Range("T:T,U:U,W:W,X:X,Z:Z,AA:AA,AC:AC,AD:AD,AF:AF,AG:AG,AI:AJ").EntireColumn.Hidden = False
        .Caption = "ZielDatum ausblenden"
    End If
  End With
End Sub

Mein Wissen um VBA ist nicht mal rudimentär, ich kann Vielleicht irgendwelchen Fetzen die ich im WWW finde angleichen und kombinieren...
-Mit try & error


Vielen Dank schon mal und beste Grüße
H

[Werner.M]

Hallo,

folgenden Code ins Workbook_Open Event.

Code:

Private Sub Workbook_Open()
    With Worksheets("Tabelle1")
        .Protect Password:="Kennwort", UserInterfaceOnly:=True
    End With
End Sub

Dazu im VBA-Editor im Projektbaum Doppelklick auf "DieseArbeitsmappe" und Code rechts ins Codefenster kopieren.
Deinen Blattnamen und dein Kennwort mußt du anpassen.

Wirkt sich erst aus, wenn die Datei gespeichert wurde und dann geöffnet wird.

Gruß Werner

[Kuwer]

Hallo,

hake im Blattschutzdialog die Option Spalten formatieren mit an.

Gruß Uwe

[Hunterson]

Danke euch beiden!

Bei der Lösung von Werner funktioniert das ein- / ausblenden, aber die Autofilter nicht mehr.

Bei der Lösung von Uwe schein alles zu funktionieren.

Mal schauen was passiert wenn das Ding "life" geht. 

Nochmal. -Vielen Dank für die schnelle Hilfe!
Grüße
H