api timer daki kod excel macro çalışıyorsa dursun

[cenk77ist]

Public Declare Function SetTimer Lib "user32" ( _
ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" ( _
ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Public TimerID As Long
Public TimerSeconds As Single


Sub StartTimer()

TimerSeconds = 15 * 60 ' how often to "pop" the timer. 1'den küçük olabilir.
TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)

End Sub

Sub EndTimer()
On Error Resume Next
KillTimer 0&, TimerID
End Sub

Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)

' Burdaki prosedür Windows tarafından çağrılır.
' Timerla ilgili kodlar buraya yazılacak.

'bu kodları excel web tr den buldum.. istediğim şu timerproc daki kodlar yani timer ın kodları çalışacağı zaman excel in başka macro çalıştırıp çalıştırmadığını kontrol etsin evet ise timerproc pas geçilsin..

bilmiyorum ama application.macro.running die atıyorum bir olay varmı benzer birşey bunu ölçebileceğimiz??

tşk..