jueves, 12 de julio de 2018

Ocultar la cinta de opciones (Ribbons) en Excel con VBA


Continuando con la mejora de nuestras macros en Excel, lo ideal sería que el usuario no pueda cambiar ninguna operación de las que ya Excel tiene de forma predeterminada.

Una opción muy sencilla, es ocultar la Cinta de Opciones (Ribbons if you speak English... Yo hablo, leo y escribo en ingles, pero no entiendo nada, jajaja)


Para ello ingresamos al Visual Basic (presionando ALT + F11), ingresamos un módulo(menú insertar - Modulo) y colocamos el siguiente código:

'Cuando abra el archivo automáticamente oculte la cinta de opciones

Sub Auto_Open() 

    ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")

End Sub 


'Cuando cierre el archivo automáticamente muestre la cinta de opciones


Sub Auto_Close() 

    ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")

End Sub 



Espero que les sirva.

Ing. Enrique Neciosup Morales