Как создать событие для листа Excel?

Option Explicit

Public Type POINTAPI
x As Long
y As Long
End Type

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long


Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_MBUTTONDOWN = &H207
Private Const WM_MBUTTONUP = &H208
Private Const WM_MBUTTONDBLCLK = &H209
Private Const WM_MOUSEWHEEL = &H20A
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101

Public Const WH_JOURNALRECORD = 0

Type CBTACTIVATESTRUCT
fMouse As Long
hWndActive As Long
End Type

Dim CBT As CBTACTIVATESTRUCT
Public hHook As Long



'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' Значение этих констант может зависеть от версии Office!
' Необходимо через Spy++ или WinIspector определить классы окон в Вашей версии Office.
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Const cClassNameXLMAIN As String = "XLMAIN" ' имя класса главного окна Excel'а
Const cClassNameWrbook As String = "EXCEL7" ' имя класса окна workbook Excel'а



' свои служеб. переменные
Public sNameBook As String ' имя книги для которой необходимо отслеживать событие MoveMouse,
                           ' меняем из любого места программы.
                           

Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim WinWnd As Long
Dim lpClassName As String
Dim sNameWin As String
Dim i As Long

' получаем дескриптор активного окна
WinWnd = GetForegroundWindow()
' буфер для имени класса окна
lpClassName = Space(256)
' получаем имя класса активного окна
i = GetClassName(WinWnd, lpClassName, 256)
' от пробелов освобождаемся
lpClassName = Left(lpClassName, i)

If lpClassName = cClassNameXLMAIN Then ' если активное окно не Excel, то не мучаем систему
                                       ' и больше ничего не делаем.
     
    CopyMemory CBT, ByVal lParam, Len(CBT)
   
    Select Case CBT.fMouse
   
    ' событие - движение мыши
    Case WM_MOUSEMOVE
      Dim CurPos As POINTAPI
      ' получаем новые коорд.
      GetCursorPos CurPos
      ' получение hWnd окна под курсором
      WinWnd = WindowFromPoint(CurPos.x, CurPos.y)
      ' опр. имя класса по найденному hWnd
      lpClassName = Space(256)
      i = GetClassName(WinWnd, lpClassName, 256)
      lpClassName = Left(lpClassName, i)
      If lpClassName = cClassNameWrbook Then ' курсор над workbook (какой-то, пока еще не известно какой)
        ' создание стр. перем. необходимой длинны
        sNameWin = String(GetWindowTextLength(WinWnd) + 1, Chr$(0))
        ' получение заголовка окна (в нем название акт. Excel'ского файла)
        GetWindowText WinWnd, sNameWin, Len(sNameWin)
        'Debug.Print sNameWin 'отладка
        If sNameWin = sNameBook Then
          ' курсор движется над нужной (sNameBook) workbook
           
          ' вызываем свою функцию для обработки события MouseMove над книгой
          Call MouseMoveOnWorkbook(CurPos.x, CurPos.y)
        End If
      End If
       
    Case WM_KEYDOWN
      Debug.Print "KEYDOWN"
    Case WM_KEYUP
      Debug.Print "KeyUp"
   
    Case WM_MOUSEWHEEL
      Debug.Print "MOUSEWHEEL"
   
    Case WM_LBUTTONDOWN
      Unload UserForm2
      Debug.Print "LBUTTONDOWN"
       
    Case WM_LBUTTONUP
      Debug.Print "LeftUp"
   
    Case WM_RBUTTONDOWN
      Debug.Print "RBUTTONDOWN"
   
    Case WM_RBUTTONUP
      Debug.Print "RightUp"
   
    Case WM_MBUTTONDOWN
      Debug.Print "MBUTTONDOWN"
   
    Case WM_MBUTTONUP
      Debug.Print "MiddleUp"
     
    End Select

End If

HookProc = CallNextHookEx(hHook, nCode, wParam, lParam)

End Function