<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<commands>
       <command idMso="Help" enabled="false"/>
       <command idMso="WindowClose" enabled="false"/>
       <command idMso="WindowRestore" enabled="false"/>
       <command idMso="WindowMinimize" enabled="false"/>
       <command idMso="ApplicationOptionsDialog" enabled="false"/>
       <command idMso="FileExit" enabled="false"/>

 </commands>
 <ribbon startFromScratch="true">
  <tabs>
   <tab id="tabMain" label="Work"> 
    <group id="grpProjects" label="Работа с данными">
     <button id="cmdRaspr" label="Распределение" enabled="{7}" onAction="BUTTON_Ribbon" size="large" 
     imageMso="ShapesMoreShapes" supertip="Нужно распределить поставку?"/>
  
  <splitButton id="ManlWork" size="large" >
 <button id="buttonwork" imageMso="SharingOpenWssDiscussionList" label="Работа с базой" onAction="BUTTON_Ribbon" />
      <menu id="mnuManlWork" imageMso="SharingOpenWssDiscussionList" itemSize="large" >
       <button id="cmdHandMade"  label="Новая поставка" imageMso="SharingOpenWssDiscussionList" onAction="BUTTON_Ribbon"/>
      </menu>
     </splitButton>
 <splitButton id="SkladWork" size="large" enabled="{4}" >
 <button id="buttonSklad" imageMso="ViewsLayoutView" label="Склад" onAction="BUTTON_Ribbon" />
      <menu id="mnuSkladWork" imageMso="SharingOpenWssDiscussionList" itemSize="large" >
       <button id="SkladExpress"  label="Открыть склад" imageMso="BlogHomePage" onAction="BUTTON_Ribbon"/>

      </menu>
     </splitButton>
      </group>    
                                                                                                                                                            
   </tab>
  </tabs>
 <qat>
    <sharedControls>
        <control idMso="Undo" visible="true" insertBeforeMso="Redo" keytip="1" screentip="Отменить ввод"/> 
        <control idMso="Redo" visible="true" insertAfterMso="Undo" keytip="2" screentip="Вернуть"/> 
        <button idMso="FilePrintPreview" visible="true" insertAfterMso="Redo" keytip="3" screentip="Просмотр перед печатью"/> 
        <button idMso="PrintDialogAccess" visible="true" insertAfterMso="FilePrintPreview" keytip="4" screentip="Печать"/> 
        <button idMso="ExportExcel" visible="true" insertAfterMso="PrintDialogAccess" keytip="5" screentip="Экспорт в Excel"/> 
        <button idMso="FileSave" visible="true" insertAfterMso="ExportExcel" keytip="6" screentip="Сохранить в файл"/> 
        <button idMso="FileSendasAttachments" visible="true" insertAfterMso="FileSave" keytip="7" screentip="Электронная почта"/> 
    </sharedControls>
</qat>
 </ribbon>
</customUI>

Private Sub GotvRibbon()
' подготавливаем нашу ленту в конфигурации соответствующей зашедшему в программу, но элементы не прячем - просто делаем недоступными
Const IDZagotovka& = 5 ' на 5-строке наша заготовочка
Dim i%, RolsMass$(), Crayi%, rstRols As Recordset, str1$, str2$
RolsMass = Split(FromSprav(883), Gl0balDelimiter)
Crayi = UBound(RolsMass) + 1
Erase RolsMass
Set rstRols = CurrentDb.OpenRecordset("UsysRibbons", dbOpenTable)
rstRols.MoveFirst
Do Until rstRols.EOF
If rstRols.Fields("ID") = IDZagotovka Then Exit Do
rstRols.MoveNext
Loop

str1 = rstRols.Fields("RibbonXml").GetChunk(0, 32768)
For i = 1 To Crayi
str2 = Razrols(i)
str2 = LCase(str2)
   str1 = Replace(str1, "{" & i & "}", str2)
Next i
' если наш юзер не админ, спрячем все настройки
str2 = Upravladmins
str2 = LCase(str2)
str1 = Replace(str1, "{11}", str2)
' ----------------------------------------------------------------
' вставляем текст измененной ленты в ленту определенную по умолчанию
rstRols.MoveFirst
rstRols.Edit
    rstRols.Fields("RibbonXml") = ""
    rstRols.Fields("RibbonXml").AppendChunk str1
rstRols.Update
'Debug.Print str1
rstRols.Close
Set rstRols = Nothing
End Sub