Configurar barras de access

Utilice la propiedad CommandBars:
Ejemplo de la propiedad CommandBars
EL siguiente ejemplo usa la propiedad CommandBars del objeto Application para manipular varias propiedades y métodos del objeto de la colección CommandBars. Para probar este ejemplo, pegue el siguiente código en la sección Declaraciones de un módulo estándar. Cree una referencia a la Biblioteca de objetos de Microsoft Office 8.0 usando el cuadro de diálogo Referencias, disponible al hacer clic en Referencias en el menú Herramientas. A continuación haga clic en cualquier parte del procedimiento ObtenerInfoDeBarraDeComandos y presione F5 para ejecutarlo.
Sub ObtenerInfoDeBarraDeComandos()
Dim cadCBBarName As String
cadCBBarName = InputBox("Introducir nombre de una barra de comandos", "Obtener información de CommandBar", "Barra de menús")
If Len(cadCBBarName) > 0 Then
CommandBarInfo cadCBBarName
End If
End Sub
Sub CommandBarInfo(cadCBBarName As String)
Dim cbr As CommandBar
On Error Resume Next
Set cbr = CommandBars(cadCBBarName)
If Err = 0 then
With cbr
MsgBox "La barra de comandos llamada '" & .Name & "' contiene " & _
.Controls.Count & IIf(.Controls.Count = 1, " control y ", _
" controles y ") & IIf(.BuiltIn, "es", "no es") & _
" un barra de herramientas incorporada", vbOKOnly, "'" & _
.Name & "' Información:"
End With
Else
MsgBox "Nombre CommandBar no válido"
End If
End Sub