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
CodeDodu.de
