Удалить надстройку из списка надстроек

[Annushka]

Как при выходе из файла xls удалить надстройку из списка надстроек?

Проблема связана со следующим.
При открытии файла xls надстройка добавляется и активируется (галочка ставится), а при выходе дезактивируется.
При открытии любого файла на этом компьютере надстройка существует в списке надстроек. И если я пытаюсь добавить надстройку с таким же именем, но из другого места, ничего не получается (надстройка остается старая с предыдущим путем).
Удалить могу только ручками: если удалить надстройку с места на диске, с которого она бралась и пытаться ее активировать, появляется вопрос удалять или нет. Но в макрос при этом ничего не записывается

Подскажите, пожалуйста.

[Annushka]

Неужели только удалением из реестра?

[Avtopic]

Если можно присоединюсь к вопросу.
Как можно снять присоединенные AddIns, референс, и компоненты, не только в vba так же и vb.
Чтобы они исчезли из списка.
Единственный раз, не помню, толи vba, толи vb спросил меня “Missing references… delete from list?” и убрал из списка несуществующий reference.
Подобное никак не смог потом повторить.
Приходится переименовать и.т.д и т.п.

[GSerg]

Не совсем в тему присоединился...
Референсы и компоненты вообще из другой области, и снимаются через VBE. В поиск.

Как addin снять средствами excel, я не знаю. А что будет если удалить файл, после чего сделать .installed=true?

[Димитрий]

Для Excel XP не существует явного способа удаления элемента из коллекции Addlns. Коллекция Addlns не имеет метода D e l e t e или Remove. Одним из способов удаления надстройки из диалогового окна Надстройки является непосредственное редактирование пара-
метра системного реестра (HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Excel\Add-in Manager).
Еще одним способом удаления надстройки из коллекции Addlns
является удаление, перемещение или переименование файла XLA,
который содержит надстройку. При последующей попытке уста-
новки этой надстройки будет отображено предупреждение. В этом предупреждений пользователю предоставляется возможность удалить надстройку из коллекции Addlns.

John Walkenbach

[Annushka]

Если удалить программно не получится, но нельзя ли хотя бы как-то заставить заменить путь к надстройке?
А то получается, сто на строку

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

Set myAddIn = AddIns.Add(Filename:=ActiveWorkbook.Path & "\Form.xla", CopyFile:=False)

не ругается, но ничего и не делает, если надстройка с таким именем уже была.

[Димитрий]

Может быть, если Вы часто используете надстройку с одинаковым именем (что вообще-то нонсенс), не подключать её, а просто открывать в рабочей книге:
Workbooks.Open ActiveWorkbook.Path & "\Form.xla"

[Annushka]

если Вы часто используете надстройку с одинаковым именем (что вообще-то нонсенс)

Это почему же?

[Димитрий]

Надстройка это обычно какой-либо универсальный инструмент или дополнение, необходимый Вам в работе с программой постоянно. И для чего её каждый раз подключать и отключать (а тем более удалять из спика надстроек или менять путь к ней) я не представляю.
Объясните Вашу глобальную задачу, я думаю у неё есть альтернативное (возможно более правильное ) решение.

[GSerg]

Глобальная задача, я полагаю, http://bbs.vbstreets.ru/viewtopic.php?p=6593372#6593372

[Annushka]

Есть некоторое количество пользователей (сейчас около 20). У каждого есть свой файл Excel, в котором из макросов существует только подключение надстройки при входе и отключение при выходе.
В надстройке подключается пользовательское меню. Вот это меню и программы постоянно меняются и дорабатываются. При изменениях я просто меняю xla-файлик.
Буду очень признательна, если подскажете "альтернативное (возможно более правильное Wink) решение"

[GSerg]

А почему недостаточно просто менять xla-файлик?

[Avtopic]

To Gserg
Зря вы меня прогнали в поиск. Там к сожалению ничего не нашел. (Плохо не искал)

To Annushka

Есть некоторое количество пользователей (сейчас около 20). У каждого есть свой файл Excel, в котором из макросов существует только подключение надстройки при входе и отключение при выходе.
В надстройке подключается пользовательское меню. Вот это меню и программы постоянно меняются и дорабатываются. При изменениях я просто меняю xla-файлик.
Буду очень признательна, если подскажете "альтернативное (возможно более правильное Wink) решение"

Я делаю вот так:

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

For Each ref In Application.ThisWorkbook.VBProject.References
If ref.Name = "Имя вба проекта в вашем xla (учтите, не файла xla)" Then Application.ThisWorkbook.VBProject.References.Remove ref
Next ref

Str = ThisWorkbook.Path “или нужное вам
Application.ThisWorkbook.VBProject.References _
.AddFromFile Str & "\ Имя файла xla .xla"

Главное не получить конфликт имен VBA проектов в проектах в главной книге и в загружаемой.
И в конце:

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)

‘Здес какие то проверки у меня, уже не помню, для чего.
For Each ref In Application.ThisWorkbook.VBProject.References
If ref.Name = "Имя вба проекта" Then Application.ThisWorkbook.VBProject.References.Remove ref
Next ref
End Sub

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

[GSerg]

Avtopic
Существует большая разница между надстройками, подключаемыми в референсы к проекту, и надстройками, подключаемыми в список самого excel. Другая суть и другое назначение.

[Avtopic]

Знаю!

По-моему, в автор хочет, решит задачу, где имеет смысл подключить другой проект именно в референсы.

Почему нет?

[GSerg]

Потому что суть добавления в проектные референсы - чтобы из кода книги использовать код надстройки. Annushka хочет, чтобы в конечных книгах кода не было.

[Annushka]

Не поняла я пока, что такое проектные референсы.
Но с надстройками уже намучилась: заходят несколько человек, подключают надстройку, и сетка не выдерживает (или висит или ругается).
А то, что предложил Avtopic, пока не получается. Ругается на конфликт имен, а в главной книге вообще еще ничего нет, кроме подключения референсов

Уже не ругается. Попробую так.

[Avtopic]

Имя проекта в книге поставьте различное от имени проекта в xla

[Annushka]

Спасибо. Уже поставила.

GSerg, а в чем отличие референсов от надстроек? Я что-то особо не заметила разницы, кроме того, что галочки стоят в разных местах.

[GSerg]

Референсами пользуешься ты, надстройками - excel...
Если, к примеру, Поиск решения подключен, то можно пользоваться им из excel, но нельзя из кода вызвать функцию SolverSolve, пока Поиск решения не бует подключен в референсы проекта...

[Annushka]

Референсами пользуешься ты, надстройками - excel...
Если, к примеру, Поиск решения подключен, то можно пользоваться им из excel, но нельзя из кода вызвать функцию SolverSolve, пока Поиск решения не бует подключен в референсы проекта...

Исходя из Вашего объяснения, мне вроде больше подходят референсы. Мне кажется, что я ими пользуюсь, а не Excel. Хотя... Как отделить себя от Excel?

Решила попробовать подключить через референсы, посмотреть, чем отличается в работе. Но при попытке одновременно подключить тот же файл xla, но из другого xls, получаю ошибку

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

Error in loading DLL

[Nicky]

Annushka, не пойму, чем не подошел мой вариант с невидимостью панели?

[Annushka]

Annushka, не пойму, чем не подошел мой вариант с невидимостью панели?

А можно поподробнее или ссылочку?

[Nicky]

http://bbs.vbstreets.ru/download.php?id=3981

[Annushka]

Спасибо, это я видела и все заработало. Но после того, как файл xla подключает третий-четвертый человек (видимо, в зависимости от нагрузки на сеть) у следующего либо зависает активизация надстройки, либо выскакивает ошибка. Я поэтому и ищу еще варианты.

[Димитрий]

А может быть дать каждому пользователю по надстройке.
А обновлять их по сети.

[GSerg]

Неправильно это...
Когда надстройка одна, это правильно...

[Annushka]

Сейчас так и делаю. Выхода пока другого не вижу. Просто не хотелось бы их размножать, при любом размножении существует возможность появления разных версий надстройки.