Добавление записи в реестр при открытии книги

[ru3000]

Где-то читал про автоматическое добавление записи в реестр при открытии книги. Только вот не могу вспомнить где. Может кто знает как это делается?

[SAS888]

Вставьте в модуль "Эта книга" код:

Private Sub Workbook_Open()
    Counter = GetSetting("OpenCount", "Num", "Count", 0)
    Counter = Counter + 1
    SaveSetting "OpenCount", "Num", "Count", Counter
End Sub

Как видно, создается (если ее еще нет) ветка в реестре Windows и записывается значение Count, т.е. количество открытий файла на данном компьютере.
Необходимо заметить, что имеющиеся в VBA функции SaveSetting и GetSetting способны работать только с веткой реестра HKEY_USERS\S-1....\Software\VB and VBA Program Settings. Если же необходимо работать с произвольной веткой, то без WinAPI-функций не обойтись.

[ru3000]

Если же необходимо работать с произвольной веткой, то без WinAPI-функций не обойтись.

Именно это мне и надо. Подскажите, пожалуйста, код с WinAPI.

[SAS888]

Посмотрите вложение. Запустите макрос "Main". Макрос выведет сообщение с ID номером Windows, установленном на компьютере, который находится в ветке HKEY_LOCAL_MACHINE\Software\Microso ft\Windows NT\CurrentVersion (для WinXP). Для работы с другими ветками используйте требуемые параметры функции GetString.