Eliminar barra de menu

La barra de menú principal no se puede eliminar, solo ocultar sus opciones (Archivo, Edición, etc)
Generalmente este código lo colocamos al abrir el libro y al cerrarlo lo volvemos a la normalidad.
Entonces en el Editor, en el objeto ThisWorkbook coloca estas rutinas:
Private Sub Workbook_Open()
'colocamos la variable en False y llamamos a la subrutina
miEstado = False
opcionesMenu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'colocamos la variable en True y volvemos a llamar a la subrutina
miEstado = True
opcionesMenu
End Sub
Y en un módulo tendremos la rutina que desactiva las opciones de la barra principal.
Public miEstado
Sub opcionesMenu()
'para desactivar las opciones del menú principal
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Archivo")
.Enabled = Estado
.Visible = Estado
End With
With .Controls("&Edición")
.Enabled = Estado
.Visible = Estado
End With
With .Controls("&Ver")
.Enabled = Estado
.Visible = Estado
End With
With .Controls("&Insertar")
.Enabled = Estado
.Visible = Estado
End With
With .Controls("&Formato")
.Enabled = Estado
.Visible = Estado
End With
With .Controls("&Herramientas")
.Enabled = Estado
.Visible = Estado
End With
With .Controls("Da&tos")
.Enabled = Estado
.Visible = Estado
End With
With .Controls("Ve&ntana")
.Enabled = Estado
.Visible = Estado
End With
With .Controls("&?")
.Enabled = Estado
.Visible = Estado
End With
End With
End Sub
Saludos
Elsa
Esta y muchas rutinas más en mi página:
*** No te pierdas el Manual con las 300 Macros explicadas en español. Descarga la Demo gratis desde:
http://es.geocities.com/lacibelesdepunilla/manual