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