Crea un modulo nuevo y le pones este codigo
Public Function mc_ActivarBarrasHerramientas(blnActivar As Boolean, _
Optional strNombreBarra As String, _
Optional blnActivarII As Boolean = True)
Dim objBarra As Object
For Each objBarra In CommandBars
If Not IsMissing(strNombreBarra) Then
If blnActivar Then
If objBarra.Name = strNombreBarra Then objBarra.Visible = blnActivarII
objBarra.Enabled = blnActivar
Else
If objBarra.Name = strNombreBarra Then
objBarra.Enabled = True
objBarra.Visible = blnActivarII
Else
objBarra.Enabled = blnActivar
End If
End If
Else
objBarra.Enabled = blnActivar
End If
Next
End Function
Guarda el modulo con el nombre que quieras
Abre el formulario diriamos de inicio (el primero que se abre cuando abres la base)
Crea un botón de comando y en el evento al hacer clic, con el generador de codigo le pones:
Call mc_ActivarBarrasHerramientas(true)
Este botón te servirá para volver a activar todas las barras de herramientas, ya que cuando haces pruebas es un rollo necesitar las barras y tener que ir poniendolas y quitandolas. Una vez finalizada la base eliminas este botón y ya esta.
Ahora en el evento al abrir del formulario, con el generador de codigo le pones :
Call mc_ActivarBarrasHerramientas(False)
Y asi desactivamos las barras de herramientas cuando abrimos el primer form.
Este codigo tiene mas chicha:
Por ejemplo, me creo una barra de herramientas personalizada, con mis botones, que ejecutan macros..., es decir, el menú de mi base de datos. La llamo por ejemplo barrapers. Pues bien, cuando abro el form, en vez de ponerle
Call mc_ActivarBarrasHerramientas(False)
le pongo:
Call mc_ActivarBarrasHerramientas(False,"barrapers",true)
Y me desactiva todas excepto la mia. Esto va fantastico para crear bases con una apariencia un poco mas "profesional" sin tener que ver las barras de herramientas de access
Hala, vaya post mas largo me ha salido...
Suerte!!