Geschütztes Blatt - Gruppierung, Filtern
09.09.2021 12:18:42
Mario
ich stehe vor folgendem Problem.
ich habe in einer Dateine MEHRERE Blätter
Blatt1, Blatt2, Blatt3, Preise
Ich möchte die einzelnen Tabellen BIS auf auf das PREIS - Tabellenblatt schützen weil dort eine Datenverbindung zu einer Website besteht.
Ich möchte aber Filtern und Gruppierungen im geschützten Blatt zulassen. Darum muss ich mit Makro arbeiten.
Ich habe jetzt 2 Makros getestet.
--- Dieses schützt die aktuelle Tabelle aber nicht die anderen:
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="test123"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="davidmarina2021" 'Passwort anpassen
ws.EnableAutoFilter = True 'ermöglicht Autofilter
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
End Sub
danke
LG
Mario
Anzeige