' Dieses Makro deinstalliert alle installierten AddIns:
Sub AddIns_automatisch_deinstallieren()
Dim intAddIn As Integer
For intAddIn = 1 To AddIns.count
If AddIns(intAddIn).Installed = True Then
AddIns(intAddIn).Installed = False
End If
Next intAddIn
End Sub
Dieser Tipp ist vom 25.07.2005