Public Sub Меню()
Dim MyBar As CommandBar, MyButton( 0 ) As CommandBarButton

On Error GoTo l1

Set MyBar = Application.CommandBars.Add("Группа", msoBarTop, False, True)

With MyBar.Controls
   Set MyButton( 0 ) = .Add(msoControlButton,  1 , , , True)
End With
With MyButton( 0 )
   .FaceId =  3987 
   .Caption = "Скрыть"
   .TooltipText = "Группировать и свернуть группы"
   .Style = msoButtonIconAndCaption
   .OnAction = "Группы"
End With

Set MyBar = CommandBars("Группа")

MyBar.Visible = True

Exit Sub

l1:
CommandBars("Группа").Delete
Resume

End Sub

Public Sub Кнопки() 'выдаёт все значки офиса
Dim m As Office.CommandBar, c1 As Office.CommandBarControl
Dim i As Integer, j As Integer, i1 As Integer, i2 As Integer

On Error GoTo l1

Application.DisplayStatusBar = True

For j =  0  To  10500  Step  500 
   Set m = CommandBars.Add("tmp" & j)
   
   i1 = j: i2 = i1 +  500 
   
   For i = i1 To i2
       Set c1 = m.Controls.Add(msoControlButton)
       
       c1.FaceId = i
       c1.Caption = i
       Application.StatusBar = i
       
       Set c1 = Nothing
   Next i
Next j
l1:
   Set c1 = Nothing
   Set m = Nothing
End Sub

Private Sub Workbook_Open()
   Call Группа.Меню 
End Sub

Public Sub WbkOpen()
Dim i As Integer

On Error Resume Next

i =  9 
'для Office 11 Object Library указать просто путь Shared\OFFICE11\MSO.DLL
Do 'минимум одна попытка присоединить ссылку на библиотеку ADO по имени файлов msado2(n).tlb
   i = i -  1 
   Err.Clear
   Application.VBE.ActiveVBProject.References.AddFromFile VBA.Environ("commonProgramFiles") & "\system\ado\msado2" & i & ".tlb"
Loop While Err.Number >  0  And i >=  0 

Call Группа.Меню 

On Error GoTo err_hndlr
'-вставка ссылки на проект текущей надстройки или т.п. в активную книгу кому надо
ActiveWorkbook.VBProject.References.AddFromFile ActiveWorkbook.path & "\" & ThisWorkbook.Name 
Exit Sub

err_hndlr:
If Err.Number <>  91  Then Resume Next 'ошибка 91 - не открыт файл рабочей книги

End Sub