Clever-Excel-Forum

Normale Version: VBA Add-In deaktivieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo Leute,

bei uns wurde vor kurzem ein Add-In installiert. Seit dem gibt es mehrere Probleme.
Die IT kann selbst nicht helfen und rät dazu die Add-Ins (solange nicht benötigt) zu deaktivieren.

Da mehrere User betroffen sind ist es mühsam die Deaktivierung über das Menü vorzunehmen.

Gibt es eine Möglichkeit eine gesonderte Datei zu erstellen, die nur einen Togglebutton "Add-Ins aktiviert / Add-Ins deaktiviert" besitzt?

Diese Datei soll dann an die betroffenen Kollegen verteilt werden. Wenn sie die Datei öffnen und den Button anklicken sollen die Add-Ins deaktiviert werden, wenn sie die Datei zu einem späteren Zeitpunkt wieder öffnen sollen sie die Add-Ins über einen erneuten Klick wieder aktivieren können.

Optimal wäre natürlich, wenn der aktuelle Status angezeigt wird. Sprich wenn jemand die Add-Ins bereits deaktiviert hat soll der Button "Add-Ins aktivieren" anzeigen. Hat er sie aktiviert soll beim öffnen der Datei "Add-Ins deaktivieren" auf dem Button stehen.

Geht das? Das wäre echt super. Die Add-Ins müssen dann natürlich auf dem gesamten Rechner deaktiviert werden, nicht nur in der Arbeitsmappe mit dem Button.

Es handelt sich um Office 2010 auf Windows 7.
Code:
Sub M_snb()
  For Each it In AddIns
     it.Installed = False
  Next
End Sub
Code:
Private Sub ToggleButton21_Click()

Application.ScreenUpdating = False

If ToggleButton21.Value = True Then
       ToggleButton21.Caption = "PAX deaktivieren"
       ToggleButton21.TripleState = True
       ToggleButton21.BackColor = vbGreen
       AddIns("Solver").Installed = True

       
   Else
       ToggleButton21.Caption = "PAX aktivieren"
       ToggleButton21.TripleState = False
       ToggleButton21.BackColor = vbWhite
       AddIns("Solver").Installed = False

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

Application.ScreenUpdating = True
End Sub

Habe es jetzt erst einmal so selbst gebastelt.
Funktioniert auch - mir fehlt aber noch die Abfrage vorher. Wenn es bereits deaktiviert ist soll der Togglebutton beim Öffnen der Datei bereits deaktiviert sein.


Habs.
Hallöchen,

speichere irgendwo den Zustand und frage ihn beim Öffnen wieder ab. Problem ist allerdings dabei, wenn die Datei nicht gespeichert wird, wird auch der Zustand nicht gespeichert.
Du kannst aber auch den Zustand der AddIns abfragen. Im Code von snb steht ja zum deaktivieren

... it.Installed = False

Genau so kannst Du abfragen

if it.Installed = False then ...