Private WithEvents cb As CommandBars, cbOn As Boolean
Private hiddens As Object 'As Dictionary

Private Sub Hiding_Event(Target As Range)
    MsgBox "Скрытие диапазона " & Target.Address
End Sub

Private Sub cb_OnUpdate()
    Dim sel As Range, addr$
    Set sel = Selection
    With sel
        addr = .Address
        If .EntireRow.Hidden Then
1           If Not hiddens.Exists(addr) Then
                hiddens.Add addr, Empty
                Hiding_Event sel
            End If
        ElseIf .EntireColumn.Hidden Then GoTo 1
        Else
            If hiddens.Exists(addr) Then
                hiddens.Remove addr
            End If
        End If
    End With
End Sub

Private Sub Workbook_Open()
    cbInit
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not cbOn Then cbInit
End Sub
Sub cbInit()
    Set cb = Application.CommandBars
    Set hiddens = CreateObject("Scripting.Dictionary")
    cbOn = True
End Sub