Trotz Blattschutz: Filtern und Sortieren
21.10.2022 14:59:00
RaMa
ich habe eine Excel-Mappe mit verschiedenen Reitern.
Ich möchte nun trotz Blattschutz die Möglichkeit haben, einen Filter zu setzen und diesen zum Filtern und auch Sortieren der Daten zu nutzen.
Ich habe ein Makro gefunden, aber ich bekomme es einfach nicht zum Laufen.
Könnt ihr mir da bitte weiterhelfen.
Ich habe, wie im Makro beschrieben, den Filter gesetzt, danach den Blattschutz aktiviert und dann das Makro unter "DieseArbeitsmappe" eingefügt.
Dann gespeichert und neu geöffnet.
Leider bekomme ich es eben nicht zum Laufen, die Zellen bleiben gesperrt und es ist kein filtern sowie sortieren möglich.
Sub Workbook_Open()
'-Bevor Du auf Blattschützen stellst, blendest Du die Filter ein.
'-Dann schützt Du das Blatt
'-Jetzt startest Du folgendes Makro:
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub
RaMa
