Материал из VB Эксперт
Перейти к: навигация, поиск

Ensuring that an accessible add-in is properly installed and workable

Private Sub Workbook_Open()
   AddIns.Add FileName:=ThisWorkbook.FullName
   AddInTitle = "title"
   Application.EnableEvents = False
   AddIns(AddInTitle).Installed = True
   Application.EnableEvents = True
End Sub

Filling in for Excel"s missing add-in properties

Function InAddInCollection(wb) As Boolean
    For Each item In AddIns
        If item.Name = wb.Name Then
            InAddInCollection = True
        End If
    Next item
End Function