Add-In beim Laden aktivieren
17.12.2024 19:09:11
Manfred Welke
ich versuche ein Add-In zu aktivieren, was nur in einer Datei aktiv sein darf.
Dazu in "DieseArbeitsmappe" folgenden Code:
Option Explicit
Private Sub Workbook_Open()
' Dim sAddin As String
' sAddin = Environ$("AppData") & "\Microsoft\AddIns\FGS.xlam"
Application.AddIns.Add("FGS").Installed = True
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Application.AddIns("FGS").Installed = False
ThisWorkbook.Save
End Sub
Bekomme jedoch immer die Fehlermeldung "die Add-Eigenschaft des Addin-Objektes kann nicht zugeordnet werden"
Manuell im Direktbereich funktioniert es jedoch.
Anzeige