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