Settimer в winx64 не работает, рушит Excel?!

[budda999]

Нужно, отловить событие на изменение заливки ячейки.
В просторах инета нашёл решение, с помощью API.
В win86 работает, но на Win64 нет. А так как использоваться будет на машине winx64 и офисе 2010 х64, нужно что то делать.

Переменные объявляю так,

#If Win64 Then
    Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal LpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
 #Else
    Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

При открытии файла не запускается, в ручную - офис завершает свою работу быстренько.

В чём причина?!

Заранее спасибо.

[EducatedFool]

В Office 2010 встроен VBA 7 (в не VBA 6, как в более древних версиях)
А VBA 7 требует несколько другой способ объявления функций WinAPI

[budda999]

Спасибо за ответ!
Но, есть непонятности.

объявляю так:

#If Win64 Then
    #If VBA7 Then    ' Windows x64, Office 2010
        Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As LongLong, ByVal nIDEvent As LongLong, ByVal uElapse As LongLong, ByVal lpTimerFunc As LongPtr) As Long
        Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As LongLong, ByVal nIDEvent As LongLong) As Long
    #Else    ' Windows x64,Office 2003-2007
        Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
        Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
    #End If
#Else
    #If VBA7 Then    ' Windows x86, Office 2010
        Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
        Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
    #Else    ' Windows x86, Office 2003-2007
        Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
        Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
    #End If
#End If

Работает только если книга .xlsm !?
Смысл универсальности кода?

Или есть ошибка где то?

[EducatedFool]

Работает только если книга .xlsm !?

И для xls работает, и для xlsb, и для xla

Нет никакой связи между расширением файла и работоспособностью макросов в нём...


Ну и, конечно, ошибки в коде надо исправить.
Навскидку, 3 ошибки в вашем примере (сравните с моим скриншотом):

[budda999]

Вот и странно, что у меня код который написал выше работает, если только файл .xlsm
на .xls вырубается office.

Исправил по рекомендации, всё равно не работает .

У меня сейчас Win7 SP1, Office 2010 SP1 все они х64.

[EducatedFool]

на .xls вырубается office

Значит, у вас кривая версия Office (или при установке Office возникли проблемы)
Полагаю, проблема лечится только переустановкой Office (или поставьте отдельно (дополнительно) Excel 2007)

Проверьте сначала этот код в новом файле (только эта фукция, ничего больше),
потом - на другом компе, и, если везде всё будет работать, - то тогда переустанавливайте Office

Если на другом компе не заработает (программа вылетать будет) - тогда ищите проблему в другом месте.

[budda999]

Перестановка офиса с очисткой системы с помощью утилиты от микросовта и в ручную не помогла.
Пришлось переставлять ОС.
Сейчас на пустой ос заработал файл .xls

EducatedFool, спасибо за помощь!

[budda999]

После установки обновлений, как на ОС, так и на офис, файл опять рушит ексель.
Как отловить что за программа или какое обновление это делает?

[EducatedFool]

После установки обновлений, как на ОС, так и на офис, файл опять рушит ексель.

Моё мнение: обновления (которые скачиваются и устанавливаются автоматически) - ЗЛО.
Никогда не включаю обновления - и всё работает стабильно годами, без каких-либо сбоев.

PS: Не знаю, может, вы являетесь приверженцем легального ПО, и устанавливаете Office с лицензионного диска, и потом накатываете обновления.
В этом случае я ничем вам помочь не могу.

PPS: Если вы относитесь к большинству, и не боитесь пиратских сборок Windows и Office, - то поставьте Office сразу с последними обновлениями (отключив автообновление), и проблем не будет.

[budda999]

Ещё раз спасибо EducatedFool!

Всегда про обновления думал что это - хорошо?!
В преть буду осторожен с автообновлениями.

PS: ПО у меня как и у большинства в РФ! И я не являюсь приверженцем, скорее наоборот.