можно ли программно создать event для объекта

[grim]

Подскажите можно ли программно создать event для объекта в честности хочу чтобы по кнопке в Excel книге создавался лист для которого бы опредялись некоторые event'ы. Как назначить эвенты создаваемому листу?

[alibek]

Назначить обработчики программно — можно.
Добавить события — нельзя.

[grim]

я не очень понял.
допустим я добавляю лист

Dim MySheet As Worksheet
Set MySheet = ActiveWorkbook.Sheets.Add

Как програмно назначить ему обработчик стандартного события например Worksheet_Change ?

[Alec]

Создаешь модуль класса (или используем модуль ThisWorkbook)
В нем:

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

Public WithEvents MySheet As Worksheet

'нужный обработчик
Private Sub MySheet_Change(ByVal Target As Range)

End Sub


Теперь можно в нужном тебе месте вызывать

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

Set MySheet = ActiveWorkbook.Sheets.Add


[alibek]

Как програмно назначить ему обработчик стандартного события например Worksheet_Change ?

Добавить код через VBIDE.CodeModule.CreateEventProc+VBIDE.CodeModule.InsertLines.