Zeilen ausblenden mit Gliederung
04.09.2007 14:51:15
Torsten
in einer Datei habe ich unsere Produkthierarchie in einer 5-stufigen Gliederung abgebildet (Zeilen 5 bis 785). Damit meine User keinen Unsinn machen können, aber dennoch die Gliederungfsfunktion nutzen können, habe ich einen Blattschutz eingerichtet und gleichzeitig im Workbook_Open-Ereignis folgenden Code hinterlegt:
Private Sub Workbook_Open()
'Makro bewirkt, daß die Gliederungsfunktionen in
'dem WS trotz des Blattschutzes genutzt werden können
With Worksheets("Test")
.Protect Password:="Kennwort", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub
Nun habe ich aber in der Produkthierarchie einige Zeilen (246:295), die nicht benötigt werden und ausgeblendet werden sollen (Löschen ist keine Option). Aber einfaches Ausblenden reicht nicht, da über das Arbeiten mit der Gliederung diese Zeilen wieder eingeblendet werden. Mit dem Worksheet_Change-Ereignis komme ich auch nicht weiter, denn die Gleiderungsfunktion läßt sich so nicht abfangen.
Hat jemand noch eine andere Lösung zur Hand?
Vielen Dank für Eure Tipps.
Gruß
Torsten
Anzeige