Makro Autofilter ausschalten nicht bei Blattschutz möglich

[Calafati]

Hallo zusammen,
unten aufgeführtes Makro funktioniert prima und löst gesetzte Filter wieder auf.
Alles gut soweit. Das Makro funktioniert auch, wenn die Tabelle freigegeben ist.
ABER: es funktioniert NICHT, wenn die Tabelle "blattgeschützt" ist.
Ist das okay? Beim Blattschutz ist die Option "Autofilter verwenden" mit einem Häkchen versehen...

Ich bin mir ziemlich sicher, daß das noch bis vor kurzem geklappt hat
Oder ist hier was verkehrt?
Bin leider mein Makro-Genie
Besten Dank für Hinweis und Rat :19:
und viele Grüße
Klaus
----------------------------------------------
Sub Autofilter_AUS()
 With ActiveWorkbook.ActiveSheet
 If .FilterMode Then
 .ShowAllData
 MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
 End If
 End With
End Sub

[Rabe]

Hi,

wenn Du sowieso ein Makro verwendest, kannst Du doch auch am Anfang den Blattschutz entfernen und am Ende wieder setzen?

[RPP63]

Moin!
"Autofilter verwenden" heißt nicht "Autofilter löschen"!  :19:
Aus der Hilfe zum Parameter AllowFiltering der Worksheet.Protect-Methode :

Mit True können Benutzer Filter für das geschützte Arbeitsblatt festlegen. Die Benutzer können Filterkriterien ändern, jedoch keinen AutoFilter aktivieren oder deaktivieren. Die Benutzer können Filter für einen vorhandenen AutoFilter festlegen. Der Standardwert ist False.

Gruß Ralf

[Kuwer]

Hallo Klaus,

probiere es mal damit:

Sub Autofilter_AUS()
 Dim i As Long
 With ActiveWorkbook.ActiveSheet
   If .AutoFilterMode Then
     If .FilterMode Then
       For i = 1 To .AutoFilter.Filters.Count
         .Cells.AutoFilter Field:=i
       Next i
       MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
     End If
   End If
 End With
End Sub

Gruß Uwe

[Calafati]

Hallo Uwe,
schon mal vielen Dank!
Allerdings bleibt die Fehlermeldung die Gleiche, Verweis auf den Blattschutz.
Dabei bin ich mir völlig sicher, daß das Makro bis vor kurzem funktioniert hat. Bei geschützter UND gleichzeitig freigegebener Tabelle.
Total seltsam.
Viele Grüße
Klaus