Macros autoejecutable

Hola Elsa:
Me gustaría saber si con un macro autuejecutable, es posible lograr que los usuarios de una planilla no tengan acceso a ningún menu(Archivo, Edición, etc) ni a barra de herramientas, solo que pueda cargar los datos y utilizar ciertos botones ya configurados.
Muchas gracias
Martin

1 Respuesta

Respuesta
1
Desde el evento Open del libro debieras ejecutar las rutinas que te ocultarán las barras y en el evento BeforeClose volverlas a habilitar.
La barra principal de Excel es aquella que no podemos ocultar desde el menú Ver, Barras de Herramientas. Es la que presenta los menúes: Archivo, Edición, etc
La macro que las oculta es la siguiente:
Sub OcultaBarraMenu ()
Application.CommandBars(1).Enabled = False
' la siguiente instrucción muestra una barra en blanco
MenuBars.Add.Activate
End Sub
Atención: recordar de volverla a su estado normal, con estas instrucciones:
Sub MuestraBarraMenu ()
Application.CommandBars(1).Enabled = True
' si hemos mostrado una barra en blanco la quitaremos activando la principal
MenuBars(xlWorksheet).Activate
End Sub
Para las otras barras habituales estas son las instrucciones:
Sub quitaBarras()
With Application
'barra Estándar (la de los botones Nuevo, Abrir, Guardar, etc)
.CommandBars("Standard").Visible = False
'barra Formato
.CommandBars("Formatting").Visible = False
'a continuación las barras que pueden activarse desde el menú Herramientas, Opciones, Ver
'barra Fórmula
.DisplayFormulaBar = False
End With
End Sub
Si te queda alguna todavía, podes encender la grabadora, quitar las barras u opciones (o agregar tu propia) y luego al detener la grabadora vas a los módulos del Editor y tendrás las instrucciones que necesitas.
Saludos
Elsa
*** Rutinas extraídas del manual '400Macros' en español.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas