Обработка событий во всех открытых книгах

[agregator]

Здравствуйте уважаемые программисты.
Подскажите, как сделать так, чтобы проект "VBAProject (Таскать.xla)", из вложения, работал во всех открытых книгах.
Т.е., чтобы срабатывало, во всех открытых книгах:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

[Maxx]

Надстройку насколько я знаю надо поместить суда:
C:\Documents and Settings\User\Application Data\Microsoft\AddIns

а далее открыть Excel и в меню Надстроек подключить ее.

[agregator]

Maxx, я так и сохранил. Но мне надо, чтобы
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
из VBAProject (Таскать.xla), срабатывало, во всех открытых книгах.

[EducatedFool]

Надо использовать события объекта Application

http://www.planetaexcel.ru/forum.php?thread_id=7710
http://www.intuit.ru/department/office/vba2000/4/5.html
http://vbnet.ru/forum/show.aspx?id=150461#1

Подробнее - в поиске

[KOSTIK1]

Вот что получилось, тестируй.
Скопируй в папку C:\Documents and Settings\Пользователь\Application Data\Microsoft\AddIns

[agregator]

KOSTIK1, спасибо работает как надо.

[agregator]

Странно, но если протянуть одну ячейку за угол, потом включить режим перетаскивания и изменить параметры автозамены, то выскакивает Debug и VBAProject (Таскать.xla) перестаёт работать. А в варианте без Class такого нет.

[KOSTIK1]

Может лучше включать когда надо?

[KOSTIK1]

Наверно нужна "помощь клуба"

[agregator]

Все здрасти.
Проблема.
Скопировал надстройку Таскать.xla в папку C:\Documents and Settings\Пользователь\Application Data\Microsoft\AddIns
Поставил галочку в Надстройках.
При следующем открытии нужного файла Excel, при выполнении кода:
Private Sub Workbook_Open()
Set VSh.Taskay = Application
ФормированиеПанелиИнструментов
End Sub
Формируется панель и создаётся новая Книга1, а нужная книга не открывается.
Я думаю, что проблема в работе Sub ФормированиеПанелиИнструментов(), но конкретно не знаю.
Помогите разобраться.