Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Jak detekovat existenci doplňku v Excelu

Detekce problémového doplňku vyřešena pomocí jednoduchého makra, které přikládám pro případné další zájemce. Díky za vyhledané odkazy, které mi poskytly informace vedoucí k řešení.

Sub testMSIP()

Dim certAddin As COMAddIn

Err.Number = 0
On Error Resume Next ' pri chybe pokracuj dále bez varovani

With Application.COMAddIns("MSIP.ExcelAddin")

If Err.Number > 0 Then
'nastala chyba

If Err.Number = 9 Then
' chyba, že v kolekci není, nemohu pouzit COMAddIns.Description
MsgBox "Doplněk Microsoft Azure Information Protection nebyl nalezen"
Else
'jina chyba, vypise jeji popis
MsgBox " chyba: " & Err.Description
End If
Else
'(bez chyby) existuje v kolekci COMAddIns

' vychozi nastaveni pro zobrazeni chyb
On Error GoTo 0

'test zda je zapnut
If .Connect = True Then
MsgBox "Nalezen aktivní doplněk : " & .Description
Else
MsgBox "Nalezen vypnutý doplněk : " & .Description
End If
End If

End With

End Sub

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny