COM Addin deaktivieren

[StrammerMax]

Hey Leute,

ich habe hier ein COM Addin, welches als Prg.ID. "CognosOffice12.Connect" ausspuckt.

Über

Code:

Application.COMAddins("CognosOffice12.Connect").Connect = False

spuckt er bei mir aber nur einen Laufzeitfehler aus.
Hat irgendjemand eine Ahnung, wie man das deaktivieren könnte?
Oder notfalls einfach alle COM Addins deaktiviert?

[WillWissen]

Hi Max,

unter Optionen findest du den Menüpunkt Add-Ins. Wenn du hier klickst, kannst du im sich öffnenden Fenster ganz unten bei Verwalten u.a. die COM-Add-Ins auswählen. Hier entfernst du die Häkchen von den Add-Ins, die du nicht benötigst.

[StrammerMax]

Hatte mich undeutlich ausgedrückt.

Ich möchte es per VBA deaktivieren.

[LuckyJoe]

Hallo Max,

hilft dir das weiter? https://www-01.ibm.com/support/docview.w...wg22012988

[StrammerMax]

Nicht wirklich - die Seite hatte ich auch schon gefunden. Mit der Programm ID Cognos.Office12.Connect lässt es sich aber nicht deaktivieren.

[LuckyJoe]

... und wenn du in der Registry alle Einträge dazu löschst (nach Sicherung natürlich)?

[StrammerMax]

Was soll das bringen?

Wenn ich es einfach nur einmalig löschen/deaktivieren möchte kann ich es auch über das normale Menü.

Ich habe einen Button gebastelt und das AddIn per Klick auf den Button zu deaktivieren/aktivieren.

Es soll nicht einmalig gelöscht oder deaktiviert werden.

[snb]

PHP-Code:

Private sub Workbook.open()
     if Application.COMAddIns(1).Connect then Application.COMAddIns(1).Connect =false
End sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     if Application.COMAddIns(1).Connect=false then Application.COMAddIns(1).Connect =true
End Sub 


[StrammerMax]

Code:

Private Sub ToggleButton21_Click()

Application.ScreenUpdating = False

If ToggleButton21.Value = True Then
       ToggleButton21.Caption = "PAX aktiviert"
       ToggleButton21.TripleState = True
       ToggleButton21.BackColor = vbGreen
       AddIns("IBM Cognos Office Reporting BI Addin").Installed = True
       AddIns("IBM Cognos Office Reporting TM1 Addin").Installed = True
       If Application.COMAddIns(1).Connect = False Then Application.COMAddIns(1).Connect = True

       
   Else
       ToggleButton21.Caption = "PAX deaktiviert"
       ToggleButton21.TripleState = False
       ToggleButton21.BackColor = vbRed
       AddIns("IBM Cognos Office Reporting BI Addin").Installed = False
       AddIns("IBM Cognos Office Reporting TM1 Addin").Installed = False
       If Application.COMAddIns(1).Connect Then Application.COMAddIns(1).Connect = False

   End If
With ToggleButton21
       .Font.Size = 30
End With

Application.ScreenUpdating = True
End Sub

So müsste es aussehen, damit es funktioniert... wirft aber einen Fehler bei "False Then Application.COMAddIns(1).Connect = True"

[snb]

Hast du meinen Vorschlag (ohne etwas zu ändern) getestet ?