Autofilter und Blattschutz

[Rabe]

Hi,

dann würde doch auch einfach so was gehen:

Code:

If ListObjects("Tabelle1").ShowAutoFilter Then
  Sheets("Tabelle1").ShowAllData
End If

oder

Code:

If Sheets("Tabelle1").ShowAutoFilter Then
  Sheets("Tabelle1").ShowAllData
End If

?

[ExcelNeuling99]

Hallo,

ich glaube ich habe nun einen Weg gefunden:

Code:

Private Sub Workbook_Open()

Dim sh As Long
 
For sh = 1 To Sheets.Count
 
With Sheets(sh)
 
 
.Protect UserInterfaceOnly:=True, _
DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingRows:=True, _
AllowInsertingRows:=True, AllowDeletingRows:=True, _
AllowFiltering:=True, AllowSorting:=True, _
Password:=""
 
.EnableOutlining = True 'für Gliederung
 
.EnableAutoFilter = True 'für Autofilter
 
End With
Next
End Sub

Damit ist der Blattschutz aktiv und ich kann filtern wie auch gruppieren. Klappt wunderbar soweit. Nur ein Problem gibt's dann doch. Ich habe einen Datenschnitt eingefügt, um schnell filtern zu können. Mit diesem Datenschnitt kann ich leider nichts mehr machen (weder filtern, noch den filter zurücksetzen):(