** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - ¿Comando Ribbon?
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerrado¿Comando Ribbon?

 Responder Responder
Autor
Mensaje
okunova Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 27/Junio/2005
Localización: España
Estado: Sin conexión
Puntos: 369
Enlace directo a este mensaje Tema: ¿Comando Ribbon?
    Enviado: 15/Septiembre/2015 a las 17:13
Hola estoy buscando algún comando parecido al que se usa para access 2007 cito: 
DoCmd.ShowToolbar "Ribbon", acToolbarNo

pero para access 2003

Gracias un saludo


Editado por okunova - 15/Septiembre/2015 a las 17:21
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5226
Enlace directo a este mensaje Enviado: 15/Septiembre/2015 a las 18:17
Hola!

Eso lo que tienes que saber sobre ocultar barras de menus y otros botones:

Application.CommandBars("Menu Bar").Enabled = False
Application.CommandBars("Print Preview").Enabled = False
Application.CommandBars("Database").Enabled = False
Application.CommandBars("Form View").Enabled = False
Application.CommandBars("Form Design").Enabled = False
Application.CommandBars("Formatting (Form/Report)").Enabled = False
Application.CommandBars("Web").Enabled = False
Application.CommandBars("Report Design").Enabled = False
Application.CommandBars("Formatting (Datasheet)").Enabled = False
Application.CommandBars("Query Design").Enabled = False
Application.CommandBars("Query Datasheet").Enabled = False


Editado por mounir - 15/Septiembre/2015 a las 18:17
Un Saludo.
Arriba
okunova Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 27/Junio/2005
Localización: España
Estado: Sin conexión
Puntos: 369
Enlace directo a este mensaje Enviado: 15/Septiembre/2015 a las 19:25
Gracias por la pronta respuesta entiendo que lo cargo al abrir en un procedimiento?

Un saludo mounir
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5226
Enlace directo a este mensaje Enviado: 15/Septiembre/2015 a las 19:29
Hola!

Lo puedes ejecutar desde la macro Autoexec para que te oculte al abrir Access y así no se deja activar manualmente.
Un Saludo.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5226
Enlace directo a este mensaje Enviado: 15/Septiembre/2015 a las 20:15
Hola!

Para hacerlo con una Macro Autoexec:-

1- Creas un modulo:
Public Function ocultar()
Application.CommandBars("Menu Bar").Enabled = False
Application.CommandBars("Print Preview").Enabled = False
Application.CommandBars("Database").Enabled = False
Application.CommandBars("Form View").Enabled = False
Application.CommandBars("Form Design").Enabled = False
Application.CommandBars("Formatting (Form/Report)").Enabled = False
Application.CommandBars("Web").Enabled = False
Application.CommandBars("Report Design").Enabled = False
Application.CommandBars("Formatting (Datasheet)").Enabled = False
Application.CommandBars("Query Design").Enabled = False
Application.CommandBars("Query Datasheet").Enabled = False
End Function


2- Creas Una Macro y la guardas como "Autoexec".

3- abres la macro en vista de diseño y donde pone acciones selecionas ejecular Código.

4- bajo y en la misma vista de diseño de la macro seleccionas donde o escribes el nombre de la función, en este caso es Ocultar() y guradas.
5- Cierras la base y la abres de nuevo y tienes ocultados todos los botones.


Editado por mounir - 15/Septiembre/2015 a las 20:18
Un Saludo.
Arriba
okunova Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 27/Junio/2005
Localización: España
Estado: Sin conexión
Puntos: 369
Enlace directo a este mensaje Enviado: 17/Septiembre/2015 a las 19:44
Gracias muchas gracias por la solución.

Sois geniales
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable