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?
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.
Hatte mich undeutlich ausgedrückt.
Ich möchte es per VBA deaktivieren.
Nicht wirklich - die Seite hatte ich auch schon gefunden. Mit der Programm ID Cognos.Office12.Connect lässt es sich aber nicht deaktivieren.
... und wenn du in der Registry alle Einträge dazu löschst (nach Sicherung natürlich)?
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.
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
Zitat: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"
Hast du meinen Vorschlag (ohne etwas zu ändern) getestet ?