¿Cómo hacer para ocultar todas las barras de menús e impedir que las hagan visibles?
¡Hey, qué tal Dante amor!
Aprovecho la oportunidad para enviarte un saludo cordial. Me puedes hacer favor de indicarme las instrucciones que debo incluir en mi archivo, para que al momento de abrir, no se muestre ninguna barra de menús y tampoco se puedan activar de manera manual.
Gracias.
Nota: Utilizo excel 2013.
1 Respuesta
Para ocultar
Sub OcultarMenu()
'Por.Dante Amor
Application.DisplayStatusBar = False
Application.DisplayCommentIndicator = 0
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.DisplayFormulaBar = False
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
Application.ThisWorkbook.Protect Windows:=True
End SubPara mostrar
Sub MostrarMenu()
'Por.Dante Amor
Application.DisplayStatusBar = True
Application.DisplayCommentIndicator = 1
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.DisplayFormulaBar = True
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
End Sub
Muchas gracias maestro Dante, agregué la primera en el evento open y la segunda en beforeclose del WorkBook, pero al abrir de nuevo mi archivo en excel 2013, la cinta de opciones sigue visible, así como la barra de formulas y los títulos de columnas y filas.
¿Qué puedo hacer para que funcione correctamente ?
Y una vez que funcione, ¿Es posible que la macro haga estos cambios solo en el libro activo?
Pues bien, mañana será otro día, buenas noches y muchas gracias por el apoyo.
Estas instrucciones me funcionan bien en 2007, tendrás que buscar las instrucciones para el 2013. Ahí no te puedo ayudar, porque no tengo 2013.
Y si funciona, va a funcionar para todo excel, la jerarquía es la siguiente:
Aplicación
Libro
hoja
celda
Si aplicas un método o una propiedad a nivel de aplicación, entonces funcionará para todos los libros.
Si quieres otro libro sin las propiedades, tienes que abrir otra aplicación, es decir, tienes que abrir otro excel.
Buen día!
Maestro Dante, ya hice las pruebas en mi equipo de trabajo, en el cual también tengo excel 2013, en casa lo probé con una portátil, mismo SO, pero no sé porque no funciono.
En fin le tengo noticias, si funciona para excel 2013.
¡Gracias!
