Office: Zeilen ein-/ausblenden per VB bei Blattschutz

Hallo, ich habe ein Problem.
Und zwar möchte ich per Button-Klick in einem Excel-Blatt (Excel 2003) Zeilen ausblenden. Hierzu habe ich folgende VB-Aufzeichnung gemacht.
Sub Makro_Ausblenden1()
'
' Makro_Ausblenden1 Makro
'

'
Rows("17:59").Select
Selection.EntireRow.Hidden = True
Rows("62:85").Select
Selection.EntireRow.Hidden = True
Range("F2").Select
End Sub

Das funktioniert auch wunderbar!
Nun möchte ich aber das komplette Blatt mit einem Blatt-Schutz versehen. Danach funktioniert es nicht mehr und ich bekomme folgende Fehlermeldung:
Laufzeitfehler '1004'
Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Was da jemand Rat?

:)

 

Moin, duc996,

naheliegend wäre Blattschutz aufheben zu Beginn des Makros und Setzen am Ende - einfacher wäre aber das Setzen des Blattschutzes beim Öffnen der Mappe oder beim Aktivieren der Tabelle mit dem Zusatz UserInterfaceOnly:=True, was die Ausführung von Makros zulässt. Diese Einstellung ist flüchtig, d.h. sie wird von Excel nicht gespeichert und muss bei jedem Öffnen erneut ausgeführt werden...

 

Hi jinx, danke für deine schnelle Antwort.
Habe gerade deinen ersten Vorschlag ausprobiert. Dann kommt aber das Abfragekästchen mit Passwort-Eingabe für den Blatt-Schutz. So kann ich das nicht gebrauchen!
Eigentlich soll der Benutzer dieses Excel-Blattes durch zwei Button zwischen zwei Ansichten nur umschalten können. 1. Ansicht beinhaltet alle Zeilen. 2. Ansicht blendet mehrere aus.

 

Hi,

funktioniert mit 1 Button.

Code:

 

Hi Jürgen, wie meinst du das?
Kannst du mir die Anweisung etwas klarer aufschreiben?

 

Hi,

ich habe den Code mal kommentiert:

Code:

 

Hi Backowe, hier macht er einen Fehler!

Rows("17:59").EntireRow.Hidden = Not .Rows("17:59").EntireRow.Hidden

Was kommt zwischen ... = Not und .Rows("...

Da sagt er mir Syntaxfehler. Du weißt, ich habe Excel 2003!

 

Hi,

da kommt nichts dazwischen, ich kann es mit xl2003 nicht testen, da ich es nicht zur Verfügung habe.

Probiere es so:

Code:

 

Jürgen, ich danke dir!
Es klappt zwar nicht mit einem Button, aber deine Anweisung für zwei unterschiedliche Button funktioniert.
Danke für deine Hilfe!
Es grüßt dich, duc996

 

Hi,

das verstehe ich jetzt nicht so ganz, ich benutze doch nur einen Button.

 

Hi Jürgen!
Jetzt habe ich noch eine abschließende Frage.
Wie kann ich den Microsoft Visual Basic Editor sperren und nur per Passwort zulassen?
Denn jeder User kann sich ja nun im Editor das Passwort für den Blattschutz ansehen!

Im Übrigen lauten meine beiden Anweisungen:
Sub Makro_Ausblenden()
'
' Makro_Ausblenden Makro
'
ActiveSheet.Unprotect "geheim"
Rows("31:114").EntireRow.Hidden = True
Rows("118:156").EntireRow.Hidden = True
Rows("160:193").EntireRow.Hidden = True
ActiveSheet.Protect "geheim"
End Sub

und

Sub Makro_Einblenden()
'
' Makro_Einblenden Makro
'
ActiveSheet.Unprotect "geheim"
Rows("31:114").EntireRow.Hidden = False
Rows("118:156").EntireRow.Hidden = False
Rows("160:193").EntireRow.Hidden = False
ActiveSheet.Protect "geheim"
End Sub

 

Hi,

im VBA-Editor, Extras, Eigenschaften von VBA-Projekt:

 

Danke Jürgen!
Die gleichen Anweisungen hatte ich auch schon gemacht. Nur hatte ich die Datei nicht gespeichert und geschlossen. Deshalb konnte ich den VBA-Editor öffnen und anschauen.

Hast du eine Lösung, warum die One-Button-Lösung bei dir und bei mir nicht klappt?

 

Hi,

hier mal meine Datei im passenden Format abgespeichert. Teste mal!

 

Hi Jürgen,
die Datei funktioniert bei mir!
Kannst du mir erklären, wie du den Button in der Tabelle erzeugst und wie du ihn mit dem Programm verknüpfst?