Hallo zusammen, ich stehe vor einem Problem, was ich nicht gelöst bekomme. Vielleicht hat jemand eine Lösung parat.

In einer Arbeitsmappe sind mehrere Arbeitsblätter vorhanden. Auf diesen sind Tabellen die mit der Funktion "Sortieren und Filtern" versehen sind.

Über VBA wird die Arbeitsmappe automatisch durch Speichern geschützt. Dafür verwende ich folgende Makros, abgelegt in VBA-Projekt, Module, Module 1:

Public Sub Sperren()
Dim Arbeitsblatt As Worksheet
For Each Arbeitsblatt In Sheets
With Arbeitsblatt
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, Password:="Passwort"
End With
Next Arbeitsblatt
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

Public Sub Entsperren()
Dim Arbeitsblatt As Worksheet
Dim BlattKennwort As String
BlattKennwort = InputBox("Bitte Kennwort für den Blattschutz eingeben um die Arbeitsmappe zu entsperren.", "Kennwort eingeben...")
If BlattKennwort > "" Then
ActiveWorkbook.Unprotect Password:=BlattKennwort
For Each Arbeitsblatt In Sheets
With Arbeitsblatt
.Unprotect Password:=BlattKennwort
End With
Next Arbeitsblatt
MsgBox "Daten wurden entsperrt."
Worksheets("Startseite").Activate
End If
End Sub

Und jetzt das Problem:
In ungeschützten Zustand funktioniert die Funktion "Sortieren und Filtern". Nachdem die Arbeitsmappe geschützt wurde, ist die Funktion nicht mehr verfügbar...

Über Lösungsvorschläge würde ich mich sehr freuen.