Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Gruppierung trotz Blattschutz

Forumthread: Gruppierung trotz Blattschutz

Gruppierung trotz Blattschutz
11.02.2015 08:52:13
Jessica
Guten Morgen,
ich möchte mit folgendem Code erreichen, dass ich den Autofilter und die Gruppierungen trotz Blattschutz benutzen kann. Das funktioniert auch allerdings nur in dem Blatt welches aktiv war als ich das letzte mal gespeichert und geschlossen habe, ich möchte aber das es in jedem Tabellenblatt funktioniert.
Kann mir jemand helfen?

Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="Passwort"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub

Liebe Grüße,
Jessi

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gruppierung trotz Blattschutz
11.02.2015 09:33:40
Klaus
Hi Jessi,
den Code nicht übers "Aktive", sondern über jedes Blatt laufen lassen:
Private Sub Workbook_Open()
Dim MyWks As Worksheet
For Each MyWks In Application.Worksheets
MyWks.Protect userinterfaceonly:=True, Password:="Passwort"
MyWks.EnableOutlining = True 'für Gliederung
MyWks.EnableAutoFilter = True 'für Autofilter
Next MyWks
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Gruppierung trotz Blattschutz
11.02.2015 11:02:41
Jessica
Vielen Dank, funktioniert super :-)

Danke für die Rückmeldung! owT.
11.02.2015 11:07:15
Klaus
.

Forumthreads zu verwandten Themen

Anzeige
Anzeige