none
Excel Addins RRS feed

  • Question

  • Hi

     I have some addin in my excels and i need a macro code which check whether these addin as enabled or disabled. I didn't find any options which do check this. 

    Regards

    Nishant Kumar

     

     

    Tuesday, May 18, 2010 11:50 AM

All replies

  • Hi,

    you can try this code:

    Sub check_addins()
    With Worksheets("sheet2")
      .Rows(1).Font.Bold = True
      .Range("a1:d1").Value = _
        Array("Name", "Full Name", "Title", "Installed")
      For i = 1 To AddIns.Count
        .Cells(i + 1, 1) = AddIns(i).Name
        .Cells(i + 1, 2) = AddIns(i).FullName
        .Cells(i + 1, 3) = AddIns(i).Title
        .Cells(i + 1, 4) = AddIns(i).Installed
      Next
      .Range("a1").CurrentRegion.Columns.AutoFit
    End With
    End Sub

    it works with Excel 2005 and 2007.

    Cheers,

    Franck

    • Proposed as answer by Bessie Zhao Thursday, May 27, 2010 9:19 AM
    Thursday, May 20, 2010 10:49 AM