Como puedo ocultar la cinta de opciones automáticamente al abrir un doc ya guardado, pero solo con este doc.
Quiero que al abrir un archivo de Excel este se abra sin la "cinta de opciones" y al cerrar todo vuelva a la normalidad con otro archivo distinto,
1 Respuesta
Respuesta de Elsa Matilde
4
Estas macros van en el objeto LIBRO, y cada barra se oculta en la apertura (con valor False) y se vuelve a mostrar al cierre (con valor True). Andá probando y utilizá solo las que necesites.
Private Sub Workbook_Open()
'x Elsamatilde
'quita la barra de menus
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
'quita la barra de fórmulas
Application.DisplayFormulaBar = False
'se ocultan las pestañas
ActiveWindow.DisplayWorkbookTabs = False
'se oculta la barra de estado
Application.DisplayStatusBar = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'x Elsamatilde
'devolver el estado normal a la aplicación
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayStatusBar = True
End Sub
y para ocultar el icono de excel junto al nombre.....se puede?
¿Crees qué don Gates te dejará quitar ese icono? Jejeje. No que yo sepa.
Sdos!
