Ага, надоел он мне. Прикончил я его сегодня на досуге.
PHP код:
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lpProc As Long
Dim hwnd As Long
Dim command As String
hwnd = Application.hwnd
Call GetWindowThreadProcessId(hwnd, lpProc)
command = "taskKill /PID " + CStr(lpProc) + " /F"
Shell command
End Sub