Событие Worksheet_Calculate для листа Excel

[Saval1986]

Всем привет. Плиз, подскажите нубу. =) Есть книга Excel. Из этой книги с помощью макроса создается ещё одна книга. Необходимо при создании этой книги сразу в ней прописать код на событие Worksheet_Calculate. Как это сделать? Заранее спасибо.

[Alec]

Код в событии один и тот же? Просто создать лист-шаблон с макросом, а в новую книгу этот лист копировать.
Ну или

Код: Выделить всё

Dim WB As Workbook ' новая книга
Dim WS As Worksheet ' лист, в который нужен макрос
Dim MyCode as String ' сюда пишем нужный код

' создаем книгу WB и получаем ссылку на лист WS

'добавляем код

WB.VBProject.VBComponents(WS.CodeName).CodeModule.InsertLines 1, MyCode



Только будут заморочки с безопасностью макросов.
PS. Это в Excel XP/2003, в более поздних не уверен

[Qwertiy]

Только будут заморочки с безопасностью макросов.

Не только макросов, ещё и доступа к VBA-коду из макросов, для этого отдельный флажок имеется в настройках.