Office: Excel-VBA: Zellen sperren und gleichzeitig ausblenden lassen.

Hallo Leute,
ich habe folgendes Problem:
In meinem Arbeitsblatt werden bestimmte Zeilen Ein oder Ausgeblenden wenn eine bestimmte Bedingung aktiv ist. Dazu nutze ich folgenden Coe:

If Range("W25")="1" Then
Rows("20:55").EntireRow.Hidden=True
End If
... und ähnlich um wieder einzublenden, davon gibt es insgesamt drei Bereiche die Ein und Ausgeblendet werden.

Um mein Arbeitsblatt jetzt Kollegen zugänglich zu machen und diese nicht versehentlich Formeln löschen, wollte ich einzelne Zellen Schützen (15-20 Stk übers Blatt verteilt). Aber über den normalen (den Weg den ich kenne, Zelle Sperren und Blattschutz) geht das leider nicht und ich bekomme immer eine Fehlermeldung "Laufzeitfehler 1004 Die Hidden-Eigenschaft des Range-Objekts kann nicht festgelegt werden"

Gibt es den einen VBA-Lösung mit dem ich einzelne Zellen vor der Bearbeitung schützen kann
aber das Ausblenden dennoch funktioniert?

Vielen Dank schonmal für die Hilfe
Max

 

Du kannst nur die fesamte Tabelle schützuen.
Du hast in Deinen Code denb Schutz nicht aufgehoben.

ActiveSheet.Unprotect "123456"

 

Ok super jetzt funktionierts vielen lieben

Da hätte ich gleich noch eine zweite Frage um mein Excel zu optimieren, vielleicht kann mir jemand behilflich sein.
Durch den Befehl Entire.Row.Hidden wie oben beschrieben lassen sich die Zeilen verbergen. Ich hab eine Dropdown
Menü wo ich einen Wert, in diesem Fall "1", auswähle. Allerdings werden die Zeilen erst ein- bzw. ausgeblendet wenn
ich nach der Auswahl im Dropdown irgendwo anders ins Arbeitsblatt klicke lässt sich das Optimieren, dass die Zeilen
gleich beim Auswählen im Dropdown ein- bzw. ausgeblendet werden. Währe einfach ein angenehmeres Gefühl beim
arbeiten.


Vielen lieben Dank
Max

 

benutze Autofilter
http://excel-inn.de/dateien/vba_beispiele/autofilterbereich_dynamische_anpassung.zip

Gruß Hajo