Hallo Mr. K. dieses Makro funktioniert nur bei der intelligenten Tabelle, habe aber hinter der intelligenten Tabelle in L12 bis T12 auch noch Autofilter. Danke
Public Sub Reset_Autofilter() 'Mit schaltknopf alle Tabellen Filter ÖFFNEN
Dim objWorksheet As Worksheet
For Each objWorksheet In ThisWorkbook.Worksheets
With objWorksheet
If .AutoFilterMode Then
.Protect Password:="gs", Userinterfaceonly:=True, _
AllowFiltering:=True, AllowFormattingRows:=True, AllowFormattingCells:=True, _
AllowFormattingColumns:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True 'Userinterfaceonly:=True, Schreibschutz nach jeder Eingabe oder OK Taste
'ActiveSheet.EnableSelection = xlUnlockedCells 'Entsperrte Zellen auswählen
If .FilterMode Then .ShowAllData
End If
End With
Next
Range("b14").Select
End Sub