Private WithEvents App As Application
Private Sub Workbook_Open()
Set App = Application
End Sub
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Dim sh As Worksheet
On Error Resume Next
For Each sh In Wb.Worksheets
If sh.AutoFilterMode Then sh.ShowAllData
Next
End SubPublic Sub Auto_close()
Dim wks As Worksheet
For Each wks In Workbooks("*.xlsx").Worksheets
If wks.FilterMode = True Then
wks.ShowAllData
End If
Next wks