AddIn "Analysefunktion" per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not Is_Installed Then AddIns("Analyse-Funktionen").Installed = False End If End Sub Private Sub Workbook_Open() Is_Installed = AddIns("Analyse-Funktionen").Installed If Not AddIns("Analyse-Funktionen").Installed Then AddIns("Analyse-Funktionen").Installed = True End If End Sub

HAllo Tino
Warum prüfst du wenn du sowieso installed=true setzen willst ?
Nimm besser das Workbook_activate/deactivate.
Wenn du im beforeclose auf abbrechen clickst, ist das Addin deinstalliert wenn is_Installed=false ist.
Verscuh mal dich hiermit anzufreunden :

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Public Is_Installed As Boolean

Private Sub Workbook_Open()
    Is_Installed = AddIns("Analyse-Funktionen").Installed
    AddIns("Analyse-Funktionen").Installed = True
End Sub

Private Sub Workbook_Activate()
    AddIns("Analyse-Funktionen").Installed = True
End Sub

Private Sub Workbook_Deactivate()
    AddIns("Analyse-Funktionen").Installed = Is_Installed
End Sub

ransi

HAllo Tino


wenn dies ein zweites mal installiert wird (Error?).
Daher habe ich zur Sicherheit eine Abfrage eingebaut, macht ja dass Makro nicht schlechter.

Das geht ohne Probleme.
Schlechter machts das aber auch nicht. Hast recht.


dies bei jedem Wechsel der Datei zu deaktivieren und danach wieder zu aktivieren.

Wenn das Addin schon installiert war ist alles gut.
Dann wirds ja auch nicht deaktiviert.
Ist es allerdings nicht installiert gewesen veränderst du beim Arbeitsmappenwechsel eine Einstellung die der User möglicherweise so gar nicht haben will.
Er hat dann auch in den anderen offenen Mappen das Addin installiert obwohl er seine Gründe hat es nicht zu installieren.
Ist der gleiche Effekt wie hier:
Im Workbook_open wird eine neue Symbolleiste erstellt und im Workbook_beforeclose wird sie wieder gelöscht.
Beim Umschalten zwischen den verschiedenen Offenen Mappen kann ich die neue Symbolleiste aber garnicht brauchen weil sie nur für die eine bestimmte Mappe gedacht war. Evtl. kann sie in den anderen Mappen sogar noch Schaden anrichten.
Jede Einstellung die man in der Arbeistsumgebung des Users vornimmt sollte man auf ein Minimum begrenzen schnellstmöglich wieder zurücksetzen.
ransi

Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not Is_Installed Then AddIns("Analyse-Funktionen").Installed = False End If End Sub Private Sub Workbook_Open() On Error GoTo Addin_Error Is_Installed = AddIns("Analyse-Funktionen").Installed If Not AddIns("Analyse-Funktionen").Installed Then AddIns("Analyse-Funktionen").Installed = True End If Exit Sub Addin_Error: Is_Installed = True End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

AddIn "Analysefunktion" per VBA

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread