mit nachstehendem Code wird in allen Tabellenblättern der Blattschutz eingeschaltet. Nun mußte ich feststellen, dass AutoFilter sich nicht bedienen lässt, so dass ich hierzu die nachstehende Ergänzung eingebaut habe. Allerdings ohne Erfolg, es tut sich nichts.- Wie müßte ich den Code verändern? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub BlattschutzRein()
Application.ScreenUpdating = False
Dim mySheet
For Each mySheet In ThisWorkbook.Sheets
mySheet.Protect Password:="Passwort"
mySheet.EnableAutoFilter = True
Next
Application.ScreenUpdating = True
End Sub