Private Sub Workbook_Open()
Dim strName As String
Dim strPath As String
Dim strNameNoExt As String

    On Error Resume Next
    
    strName = ThisWorkbook.Name
    strPath = ThisWorkbook.Path
'    имя надстройки равно имени файла без расширения
    strNameNoExt = Left(strName, InStr( 1 , strName, ".") -  1 )
    
    
'    проверяем есть такая надстройка, если нет, то инсталируем этот файл
    If Not CheckIfAddInExists Then
        
        AddIns.Add Filename:=strPath & "\" & strName
      
        If AddIns(strNameNoExt).Installed = False Then
            AddIns(strNameNoExt).Installed = True
        
            MsgBox "Надстройка ""название""" & vbCrLf & _
                    "успешно добавлена в программу Excel!", , "Добавление надстройки"
        End If
   End If


    Set c = Application.CommandBars(strCommandBarName)

    If c Is Nothing Then
       Module1.AddCommandBar
    End If

End Sub

Function CheckIfAddInExists() As Boolean
Dim ad As AddIn
    For Each ad In Application.AddIns
        If ad.Name = ThisWorkbook.Name Then CheckIfAddInExists = True
    Next
End Function

Sub DisableAddin()
Dim strName As String

    Module1.DeleteCommandBar
    
    strName = ThisWorkbook.Name
'    проверяем есть такая надстройка, если нет, то инсталируем этот файл
    If CheckIfAddInExists Then
     
'    имя надстройки равно имени файла без расширения
        strNameNoExt = Left(strName, InStr( 1 , strName, ".") -  1 )
        AddIns(strNameNoExt).Installed = False
    End If

End Sub

Sub AddCommandBar()
    Dim c As CommandBar
    Dim cb As CommandBarButton
    Dim cp As CommandBarPopup 
    Dim cp2 As CommandBarPopup
    
    On Error Resume Next
    
    Set c = Application.CommandBars(strCommandBarName)
    If Not c Is Nothing Then
       Application.CommandBars(strCommandBarName).Delete
    End If
    
    Set c = Application.CommandBars.Add(strCommandBarName, msoBarFloating, False, False)
    
    c.Enabled = True
    c.Visible = True
    
    Set cp = c.Controls.Add(msoControlPopup,  1 )
    cp.Caption = strPopupText
    
    '==============
    Set cp2 = cp.Controls.Add(msoControlPopup,  1 )
    cp2.Caption = "название.."
    '==============

    Set cb = cp2.Controls.Add(msoControlButton,  1 )
    cb.Tag = strCheckAllSheetsButtonText
    cb.Style = msoButtonCaption
    cb.Caption = strCheckAllSheetsButtonText
    cb.OnAction = "OnAction1"
    
    Set cb = cp2.Controls.Add(msoControlButton,  1 )
    cb.Tag = strCheckCurrentSheetButtonText
    cb.Style = msoButtonCaption
    cb.Caption = strCheckCurrentSheetButtonText
    cb.OnAction = "OnAction2"
    
 
End Sub
Sub HideCommandBar()
    Application.CommandBars(strCommandBarName).Visible = False
End Sub
Sub DeleteCommandBar()
Dim c As CommandBar
    On Error Resume Next
    
    Set c = Application.CommandBars(strCommandBarName)
    If Not c Is Nothing Then
        Module1.HideCommandBar
        Application.CommandBars(strCommandBarName).Delete
    End If
End Sub