Autofilter trotz Blattschutz ermöglichen

Wenn in einer Tabelle der Blattschutz gesetzt wurde, kann man im Standard nicht auf Autofilter, Gruppierung und Gliederung zugreifen.

Hier schafft nachstehendes kleines Makro Abhilfe:

Es empfiehlt sich, dieses im Worksheet_Activate Ereignis oder schon gleich beim Workbook_Open zu setzen.Option Explicit Private Sub Workbook_Open() 'gilt für alle Blätter Dim ws As Worksheet For Each ws In Worksheets ws.Protect userinterfaceonly:=True, Password:="Geheim" ' Ihr Passwort bitte anpassen 'Für ungeschützte Tabellen reicht: ws.Protect userinterfaceonly:=True ws.EnableAutoFilter = True 'ermöglicht Ihnen den Zugriff auf den Autofilter ws.EnableOutlining = True 'ermöglicht ihnen den Zugriff auf Gruppierung undGliederung Next ws End Sub

 Share on Facebook

Read more http://vba-codeschnipsel.de/autofilter-trotz-blattschutz-ermoglichen/