ячейка, в которой произошло изменение

[gsg]

Здравствуйте.

Насколько я понимаю, есть объект Target, который решает данную проблемму, если код записан в модуле листа. А как получить ссылку на подобную ячейку, если код записан не в листе? Можно ли передать свойства Target из модуля листа в основной модуль?

[EducatedFool]

Можно ли передать свойства Target из модуля листа в основной модуль?

Да, можно.

В модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    МакросОтслеживанияИзменений Target
End Sub

В стандартный модуль:

Sub МакросОтслеживанияИзменений(ByRef ra As Range)
    MsgBox "Изменился диапазон: " & ra.Address
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__11-32-47.zip

[gsg]

несовсем точно сформулировал вопрос: нужно передать из листа в модуль, находящийся в PERSONAL.xls. Ни один из моих вариантов написания ссылок типа

run "personal.xls!МакросОтслеживанияИзменений"

не подошел...

[EducatedFool]

Можно с использованием классов перехватывать события приложения и его объектов из любой книги, в том числе и из PERSONAL.xls

http://www.programmersforum.ru/showthread.php?t=45647

Надстройка, будучи загруженной вместе с Excel, способна перехватывать события активации листов и ячеек всех открытых книг.
Достаточно правильно прописать этот код в надстройке.

Потребуется создать модуль класса с подобным кодом:

Public WithEvents AppEv As Application

Private Sub AppEv_NewWorkbook(ByVal WB As Workbook)
msgbox "Создана новая книга excel"
End Sub

Private Sub AppEv_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "Изменилось выделение на листе " & Sh.Name & " в книге " & Sh.Parent.Name
End Sub


Пример кода можно найти здесь:
http://yandex.ru/yandsearch?clid=145...ation&lr=11162