Шаг 2. Сохраняем как надстройку XLA:
“Сохраним как” наш файл, выбрав тип файла XLA (по-моему, это в самом низу списка с типами файлов).

Для большей уверенности работоспособности будущих макросов своей надстройки, нужно установить НИЗКУЮ БЕЗОПАСНОСТЬ МАКРОСОВ.
Для Excel-2003 – меню СЕРВИС -> МАКРОС -> БЕЗОПАСНОСТЬ.
Для Excel-2007 – нужно перейти в НАСТРОЙКИ EXCEL -> Центр управления безопасностью -> Кнопка “Параметры центра управления безопасностью” -> Раздел “Параметры макросов” -> Включить все макросы (то, что дядька Билл крайне не рекомендует делать).
Я еще ставлю галочку “Доверять доступ к объектной модели VBA” (Теперь точно дядьку Билла хватит удар ).

Потом закроем весь Excel. Идем в папку %AppData%\Microsoft\AddIns\

* Я пишу %AppData% - так папка называется в переменных окружения ENVIRON, а для пользователя это должно находиться тут:
Для Windows-XP: C:\Documents and Settings\UserName\Application Data\
Для Windows-7: c:\Users\UserName\AppData\Roaming\

Я заберу свой файл-надстроку из этой папки и положу в папку XLSTART:
%AppData%\Microsoft\Excel\XLSTART\

Теперь при каждом запуске Excel моя надстройка будет открываться автоматом.
Так проще всего сделать. Я буду уверен без лишних заморочек, что она загрузится в Excel.
Ведь изначально её совсем “не будет видно”, а нам с ней еще много работать.

Если бы я оставил надстройку в папке ADDINS, то тоже она бы открывалась при запуске Excel и даже была бы возможность включать её и выключать в меню Excel.
Для Excel-2003 – искать в меню СЕРВИС -> НАДСТРОЙКИ.
Для Excel-2007 и 2010 - искать в “НАСТРОЙКАХ EXCEL” (ткнуть в круглую кнопку в верхнем левом углу, нажать НАСТРОЙКИ, увидим это окошко):

* Сразу извинюсь за то, что пишу местами “НАСТРОЙКА” вместо “НАДСТРОЙКА”, просто мне так удобнее, привычка…

Итак. Я скопировал свою XLA в папку XLSTART. Запустил Excel… И ничего в нем не увидел! Это Замечательно!
На самом деле все XLA по-умолчанию невидимы, но открываются в Excel.

Жмем комбинацию клавиш Alt + F11 – откроем редактор Visual Basic.

Нам потребуется еще один модуль: модуль класса, для того, чтобы наша надстройка могла “цепляться” к событиям чужой книги.

В общем, не буду Вас томить, выкладываю готовый пример этой XLA-надстройки с кодом.
В коде написал максимум комментариев, чтобы продолжить этот урок прямо под оболочкой VBA Excel.

Жми картинку, чтобы скачать RAR-архив с XLA

Модуль класса – это пользовательский элемент управления.
* Это в данном случае. Вообще модуль класса – это почти готовая DLL-библиотека.
Этот элемент управления, как и любой в Visual Basic, имеет свои свойства, события, его активирующие и события, поступающие от него. А “событие” – это отличная возможность запустить еще несколько макросов в нужный момент.

Итак, модуль класса “делает первый вдох” когда открывается наша книга XLA.
В событии Private Sub Workbook_Open()
прописано Set objWB = New objWorkbook
а в самом верху модуля “ЭтаКнига” определен список событий, которые мы будем ловить:
Dim WithEvents objWB As objWorkbook

В момент “первого вдоха” в модуле objWorkbook зарождается код-автомат:
Private Sub Class_Initialize()
On Error Resume Next
Set oExcel = Application
Set oBook = ActiveWorkbook
Set oSheet = ActiveSheet
End Sub

Переменная-объект oExcel цепляется за приложение “Excel” (у которого, кстати, как и у книги, как и у листа, тоже есть свои события).
oBook – это, соответственно, Активная (текущая открытая) книга Excel.

Таким образом, когда мы щелкаем на листе какой-то книги, эта книга уже “захвачена” нашей переменной oBook, и модуль класса генерирует событие:
RaiseEvent ShOneClick (Sh, Target)

А это событие “ловит” модуль ЭтаКнига:
Private Sub objWB_ShOneClick(ByVal Sh As Object, ByValTarget As Range)
Как только мы откроем другую книгу и закроем (или потеряем фокус с книги, которая была “прицеплена” к переменной oBook), в модуле класса произойдет событие:
Private Sub oExcel_WorkbookActivate(ByVal wb_obj As Workbook)
On Error Resume Next
Set oBook = wb_obj
Set oSheet = wb_obj.ActiveSheet
End Sub

Опа! И мы снова “зацепились” за другую книгу, которая активировалась.

Таким образом, модуль класса objWorkbook “ведет свою самостоятельную жизнь”.
А нам остается только ловить от него события, происходящие на листах чужой книги.

А наш модуль ЭтаКнига тоже стал уникальным. В нем теперь два раздела событий: события книги XLA и точно такие же события из модуля “ЭтаКнига” ЧУЖОГО ФАЙЛА Excel.

Private Sub objWB_ShOneClick(ByVal Sh As Object, ByVal Target As Range)
If StopDoubleOperation Then Exit Sub
StopDoubleOperation = True ‘ Это блокировка обработки событий от objWorkbook на время выполнения моих макросов
Dim a$
On Error GoTo 100
'Я хотел, чтобы при нажатии на ячейку в столбце "R" вставлялась строка в мою таблицу
'Процедура вставки строки описана в модуле SharedModule
'Вот она – та самая строка, ради которой и существует objWorkbook
InsCopyOneRow objWB.WbName, objWB.ShName, objWB.CellRow, objWB.CellCol
100:
StopDoubleOperation = False
End Sub

А макрос InsCopyOneRow объяснять не стоит. Он и так очень прост в понимании. Подобные макросы можно записывать средствами Excel и потом вот таким хитрым способом их выполнять.

Жду ваших вопросов…

Run "'МояНадстройка.xla'!МойМакрос" - это для процедур (можно и для функций использовать)

a = Run ("'МояНадстройка.xla'!МойМакрос", Параметр1, Параметр2...) - это для функций.

т.е. Можно написать в одной надстройке сложные математические функции, а из другой их вызывать!

* 'МояНадстройка.xla'! писать не обязательно, если имя функции или процедуры уникально, да и к тому же декларировано как Public Function (хотя и это не обязательно), то Excel сам найдет из какой книги вызвать макрос.

* Чтобы программа не выдавала ошибок (если книга с удаленным макросом не открыта) - используйте On Error Goto 100 или On Error Resume Next.