Domanda:

Reimposta tutti i criteri di filtro in tutti i fogli di lavoro durante il salvataggio di una cartella di lavoro.

Risposta:

Inserisci il codice seguente nel modulo Questa cartella di lavoro.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,Cancel As Boolean)

Dim wks As Worksheet

For Each wks In Worksheets

If wks.FilterMode = True Then

wks.ShowAllData

End If

Next wks

End Sub