add in loswerden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ray,
ein Blick in die Recherche hätte genügt:
Das AddIn deinstallierst Du, wenn Du über Menü EXTRAS / ADD-IN'S-MANAGER das Häkchen bei xlCrack (ganz unten) entfernst. Danach wird das Teil nicht mehr automatisch mitgeladen.
Die überflüssigen Schaltflächen entfernst Du, indem Du im Symbolleistenbereich doppelklickst. Daraufhin öffnet sich der Anpassendialog. Hat er sich geöffnet, klickst Du oben in der Menüleiste auf das Menü EXTRAS. Jetzt siehst Du die überflüssigen xlCrack-Menüpunkte. Diese ziehst Du einfach mit der Maus - ohne irgend eine Taste zu drücken - auf den Anpassen-Dialog. Danach sind sie weg und kehren nie mehr wieder.
Falls Du nicht klarkommst, kein Problem, einfach nochmal melden.
gruß
Michael L.

Sub x() Dim i As Integer Dim vAnswer As Variant For i = 1 To AddIns.Count If AddIns(i).Installed Then vAnswer = vbOKCancel + 48 Else vAnswer = vbOKOnly + 64 End If vAnswer = MsgBox(AddIns(i).Name & "(" & i & ")" & vbCrLf & _ AddIns(i).FullName & vbCrLf & _ AddIns(i).Title & vbCrLf & _ "Installed: " & AddIns(i).Installed & vbCrLf & _ "OK = Nix passiert / Abbrechen = DeInstallieren", vAnswer, "Add-Ins anzeigen") If vAnswer = vbCancel And AddIns(i).Installed Then AddIns(i).Installed = False MsgBox AddIns(i).Name & "wurde deinstalliert", vbOKOnly + vbExclamation End If Next End Sub

Hi Ray,
Nepumuk bastelte mir mal Code, hier sit ein Teil davon, anscheinend geht es mit Remove, allerdings hast du ja nicht den GUID von dem Crackteil, aber vielleeicht hilft ja die IIntellisense beim Punkt ach dem Item, vielleicht ...Item(x).Name o.ä.

Option Explicit
Private Const FM20_GUID = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}"
Public Sub prcAddReverence(objWorkbook As Workbook)
Dim intIndex As Integer
Dim blnFound As Boolean
On Error GoTo err_exit
With objWorkbook.VBProject.References
For intIndex = 1 To .Count
If .Item(intIndex).GUID = FM20_GUID Then
If .Item(intIndex).IsBroken Then
.Remove .Item(intIndex)
Else
blnFound = True
End If
End If
Next
If Not blnFound Then _
.AddFromGuid GUID:=FM20_GUID, Major:=2, Minor:=0
End With
objWorkbook.Application.Calculation = xlCalculationAutomatic
Exit Sub
err_exit:
MsgBox "Fehler " & CStr(Err.Number) & vbLf & _
vbLf & Err.Description, vbCritical, "Fehler"
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread