Постоянно получая Err 1004 при попытке использования Application.AddIns.Add

Question

Я пытаюсь внедрить установщик начальной загрузки для моей книги надстроек, чтобы я мог легко установить надстройку для новых пользователей и отправлять обновления. Он отлично работает на моей машине, но когда другие тестируют его, я получаю ошибку времени выполнения при попытке вызвать Set AI = Application.AddIns.Add(fileName:=fullPath, copyfile:=True). В частности, ошибка «1004: невозможно получить свойство Add класса AddIns». Я думал, что это потому, что пользователю нужно было включить «Доверительный доступ к объектной модели проекта VBA», но, похоже, ошибка возникает даже после того, как он переключил это поле.

Другие вещи, которые я проверял:

• Полный путь к надстройке действителен, и пользователь может получить доступ к каталогу и файлу
• У пользователя есть папка, расположенная в Application.UserLibraryPath

Есть идеи?

Answer 1

Разобрался. Похоже, что проблема не в разрешении, а в том, открыта ли рабочая книга. Открытие любой рабочей книги перед запуском Addins.Add предотвратило возникновение ошибки, поэтому я просто добавил ее в программу:

If Application.Workbooks.Count = 0 then Set wb = Application.Workbooks.Add()

Set AI = Application.AddIns.Add(fileName:=fullPath, copyfile:=True)

If not wb is nothing then wb.Close

Answer 2

Герцог, возможно, это настройки Центра управления безопасностью на компьютерах получателей. Я нашел это и может быть полезным.

Лучший, Дэнни Посмотрите видео VBA на ExcelVBADude на YouTube.