Die Freigabe zu barbeitender Felder funktioniert einwandfrei. Brauche jedoch die Autofilter-Funktion, was mit bisher bei geschütztem Blatt nicht gelang.
Für entsprechende Rückmeldung wäre ich dankbar.
Sub Workbook_Open()
Sheets("Adresse").Protect UserInterfaceOnly:=True, Password:="Passwort"
Sheets("Adresse").EnableOutlining = True ' Für Gliederung
Sheets("Adresse").EnableAutoFilter = True ' Für AutoFilter
End Sub