Activar/desactivar barras de menú

Las siguientes funciones permiten interactuar con las barras de menú de access, activando o desactivando las distintas barras o elementos de éstas.

Con el código se manipula el objeto CommandBar que es la parte de la Microsoft Office 8.0 Objeto Biblioteca. Por lo tanto, la Microsoft Office 8.0 Objeto Biblioteca debe estar disponible en su equipo; también establecer una referencia a esta biblioteca en la base de datos en la que desea habilitar o deshabilitar elementos de menú de su barra de comandos personalizada.

El siguiente código habilitar o deshabilitar todos los elementos del menú la barra de comandos, para ello hay que pasarle el nombre de la barra de herramientas (CmdBarName), y si quiermos activarla o no (CmdbarEnabled):

Public Function AllowMenus(CmdBarName As String, CmdbarEnabled As Boolean)
Dim Cmdbar As CommandBar, Cbct As CommandBarControl
On Error GoTo Err_AllowMenus
Set Cmdbar = CommandBars(CmdBarName)
If Cmdbar.Visible = False Then Cmdbar.Visible = True
For Each Cbct In Cmdbar.Controls
Cbct.Enabled = CmdbarEnabled
Next Cbct
Exit_AllowMenus
Exit Function
Err_AllowMenus:
MsgBox “Error ” & CStr(Err) & ” ” & Err.Description & ” has occurred in the AllowMenus Function”, vbOKOnly, “Error Detected”
Resume Exit_AllowMenus
End Function

Ejemplo: AllowMenus(”NombreDeLaBarra”,False)

Esta otra función permite activar o desactivar un elemento puntual de la barra de herramientas, ya sea un menú de la barra o el elemento el menú. Para ello, al igual que en el caso anterior, se le pasa el nombre de la barra, la activación de la misma, el menú (TopLevel) y submenú ( Sublevel) a activar o desactivar:

Public Function CommandbarEnable(Cmdbar As CommandBar, CmdbarEnabled As Boolean, TopLevel As Integer, Optional Sublevel As Integer)
Dim SubCommandbar
On Error GoTo Err_CommandBarEnable
If Cmdbar.Visible = False Then Cmdbar.Visible = True
If IsMissing(Sublevel) Or Sublevel = 0 Then
Cmdbar.Controls(TopLevel).Enabled = CmdbarEnabled
Else
Set SubCommandbar = Cmdbar.Controls(TopLevel)
SubCommandbar.Controls(Sublevel).Enabled = CmdbarEnabled
End If
Exit_CommandBarEnable:
Exit Function
Err_CommandBarEnable:
MsgBox “Error ” & CStr(Err) & ” ” & Err.Description & ” has occurred in the CommandBarEnable Function”, vbOKOnly, “Error Detected”
Resume Exit_CommandBarEnable
End Function

Ejemplo: CommandbarEnable(Commandbars(”NombreDeLaBarra”),False,1,3)

Fuente: support.microsoft.com