ocultar la barra de menu en excel

Son unas pocas y simples líneas de código, pero nos permitirán lograr un control muy grande sobre Excel. Mas de una vez necesitaremos quitar la Barra de Menu (archivo / edicion / ver / formato / etc / etc) y así evitar que nuestros usuarios hagan click en lugares que comprometerían la integridad del trabajo.

Antes de seguir quiero aclarar que trabajaremos con el objeto "Application" (aplicación): los cambios se efectuarán sobre Excel en sí, por lo que debemos prestar atención y tener especial cuidado. Si quito algo... se lo quitaré a Excel, así que tenemos que prever esto y codificar macros que reviertan las acciones efectuadas por la macro original. Si, por ejemplo, quito la barra de menu.... mas vale que luego, antes de cerrar el libro, la vuelva a poner en su lugar, o la próxima vez que abra Excel la mencionada barra no estará.

Veamos la tipica imagen de la Barra de Menu:

[+/-] Ver el resto / Ocultar

Con la línea de código que muestro a continuación (implementada dentro del evento que se dispara al abrir el libro), la quitamos:

Private Sub Workbook_Open()
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Y con este código nos aseguramos de ponerla en su lugar nuevamente, antes de cerrar el libro:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Claro que muchas veces no necesitaremos ser tan "drásticos" y, para evitar el ocultamiento de toda la Barra, solo quitaremos las que nos interesen. Seguiremos usando el objeto CommandBars(nombre) para lograr tal efecto. La siguiente línea deshabilita el menú Herramientas:

Application.CommandBars("Tools").Enabled = False

observando el resultado en la siguiente imagen:

"Herramientas" aparece deshabilitada y el usuario no podrá acceder a ella.

Habrán notado que dentro de cada CommandBars coloco el nombre en ingles. Es demasiado pesado y tedioso aprendernos todas las commandbars existentes, y mas en otro idioma. En el ejemplo que les dejo a continuación, el código se encagará de listarnos en una planilla las mismas.

Sub QuitarMenus()
'defino las variables de uso interno
Dim bar As CommandBar
Dim x As Long

'borro cualquier dato existente en la hoja
Cells.ClearContents
'con el bucle For Each recorro los objetos de la
'colección CommandBars
For Each bar In Application.CommandBars
    x = x + 1
    'nombre original del objeto
    Cells(x, 1).Value = bar.Name
    'nombre en el idioma local del objeto
    Cells(x, 2).Value = bar.NameLocal
    'numero de indice del objeto
    Cells(x, 3).Value = bar.Index
Next bar
'destruyo a bar, para liberar recursos
Set bar = Nothing
End Sub

El código arriba expuesto nos dará el siguiente resultado:

nombre original, nombre en el idioma del sistema e indice del objeto CommandBars

¿Listo? Creo que ahora tienen una herramienta mas para lograr un mayor control sobre Excel.