tolikt
...
Т.е. всё сводится к тому, что нет такого события на листе, как скрытие/отображение строк.
...


Я как-то приводил пример отлова события скрытия/отображения, т.е. и смену автофильтра можно отловить. Проблема только в том, что это событие и на другие изменения реагирует и в данном случае трудно узнать была ли смена условий фильтрации. Но по хелпу к AutoFilter Object можно понять как это сделать.

1. В обычный модуль
Function My_Func() As String
Application.Volatile
End Function

2. В любую ячейку листа "Лист1"
=My_Func()

3. В модуль "Лист1"
Private Sub Worksheet_Calculate()
MsgBox Worksheets("Лист1").AutoFilterMode
End Sub