Excel speichern nur dann wenn kein Filter drin ist

[TMJ1978]

Einen wunderschönen guten Morgen,

ich hab eine Frage ich möchte gerne wissen ob man Excel 2016 so einstellen kann das man nur abspeichern kann wenn KEIN Filter Aktiviert ist?

Ich bedanke mich schon mal in Voraus an die Experten :17: .

LG TMJ1978

[RPP63]

Moin!
Geht nur mittels VBA im _BeforeSave-Event.
Schleife über alle Blätter,
wenn Filter, dann Deaktivierung

Willst Du den Filter auf "alle" stellen oder den Filter entfernen?
(ist nicht das Gleiche)

Hier mal beide Varianten:
Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Dim wks As Worksheet 
For Each wks In ThisWorkbook.Worksheets 
  With wks 
    If .AutoFilterMode Then 
      .ShowAllData  'zeigt alle Daten im Filter an 
      .UsedRange.AutoFilter  'entfernt den Filter 
    End If 
  End With 
Next 
End Sub 

Gruß Ralf