Autofilter bei Datei schließen zurücksetzen
11.04.2019 16:00:26
Hans
ich verzweifle gerade daran, einenen Code sinnvoll einzubinden, welcher bei der Schließung meiner Datei alle Filter zurücksetzt und die Datei speichert.
Die Arbeitsmappe in der Datei ist geschützt.
In der Datei befindet sich eine Tabelle mit Filtern, welche mit Makros belegt sind.
Damit es nicht vorkommt, dass jemand vergisst die Filter zurückzusetzen und jemand anderes merkt das dann nicht, würde ich eine einfache Lösung ohne "Knopfdrück-Makro" anstreben.
Kann mir jemand mit einem Code aushelfen?
Folgende Codes haben bei mir nicht funktioniert:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
If wksBlatt.FilterMode Then wksBlatt.ShowAllData
Next wksBlatt
ThisWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End With
Next wksSheet
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Range("A1").Select
Selection.AutoFilter
End Sub
Vielleicht liegt der Fehler auch bei mir.
Wäre aber über eine kleine Hilfestellung Dankbar!
Schönen Nachmittag