Aufgabe:
wie kann man in Excel den Blattschutz so einstellen, dass
man anschliessend noch die Gruppierung verändern kann.
Lösung:
Man kann mit der code-Zeile worksheet.EnableOutlining im
geschützen Blatt die Gruppierung freigeben, nachdem die Sperrung bzw der
Blatschutz aktiviert wurde
sheet.EnableOutlining
= True 'fuer Gliederung
Code zum Optimieren von geschützten Blättern
Beispieldatei:
Excel mit aktiviertem Blattschutz… Gesperrte zellen können
nicht verändert werden..
Gruppierung erlaubt
Obwohl das Dokument gesperrt ist, kann man die Gruppierung verändern
mit aufklappen oder zuklappen
Vba Code zum Excel Blatt Schutz mit erlaubtem Gruppierung
|
Option
Explicit
Public
Function Schutz_aktivieren_mit_Gruppierung_Worksheet(ByRef sheet As
Worksheet)
sheet.Protect UserInterfaceOnly:=True
sheet.EnableAutoFilter = True 'fuer Autofilter
sheet.EnableOutlining = True 'fuer Gliederung
End
Function
Public
Function Schutz_aufheben_Worksheet(ByRef sheet As Worksheet)
sheet.Unprotect
End
Function
|
Die Beispieldatei ist im Download