Pregunta:

Restablezca todos los criterios de filtro en todas las hojas de trabajo al guardar un libro de trabajo.

Respuesta:

Inserte el siguiente código en el módulo Este libro.

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