Programowo zainstaluj dodatek VBA

Chcę utworzyć makro, które zainstaluje dodatek dla użytkownika do wstążki programu Excel. Wchodzę w to:

Private Sub Workbook_Open()

On Error Resume Next
Application.AddIns("Name of Addin").Installed = False
On Error GoTo 0

With Application
    .AddIns.Add "Filepath to addin in shared location", False
    .AddIns("Name of Addin").Installed = True
End With

ThisWorkbook.Close False

End Sub

Po uruchomieniu makra dodatek instaluje się na wstążce bez żadnych problemów. Problem polega na tym, że po zamknięciu programu Excel dodatek nie jest już wyświetlany na wstążce.

Wygląda na to, że excel spodziewa się, że dodatek zostanie skopiowany do użytkowników C: Dokumenty i ustawienia Nazwa użytkownika Dane aplikacji Folder Microsoft Dodatki powodujące błąd, który nie może go znaleźć podczas uruchamiania programu Excel po zamknięciu.

Teraz rozumiem, że druga (fałszywa) zmienna dla poniższego wiersza kodu mówi, że addin nie powinien być kopiowany do katalogu AddIns i raczej powinien pozostać we współdzielonej lokalizacji.

.AddIns.Add "Filepath to addin in shared location", False

Jakieś pomysły na to, dlaczego Excel spodziewa się, że dodatek znajdzie się w domyślnym folderze użytkownika?

questionAnswers(0)

yourAnswerToTheQuestion