Mediante macros VBA podemos abrir un libro Excel en pantalla completa con opciones visuales.
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Explorador de Proyectos
VBAProject Doble Clic sobre ThisWorkbook (libro). Si el panel no está visible Ir a: Barra de menú Ver Explorador de proyectos. Mostrará la ventana donde escribimos la macro.
Escribir el código de la macro:
- ABRIR LIBRO EN PANTALLA COMPLETA
Muestra la ventana en pantalla completa, ocultando la cinta de opciones, barra de fórmulas y barra de estado.
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub
Para restablecer los valores predeterminados antes de cerrar el libro.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub
- ABRIR LIBRO EN PANTALLA COMPLETA EN HOJA DESEADA
Muestra la ventana en pantalla completa, ocultando la cinta de opciones, barra de fórmulas y barra de estado, en la hoja deseada ("Hoja2").
Private Sub Workbook_Open()
Worksheets("Hoja2").Activate
Application.DisplayFullScreen = True
End Sub
Para restablecer los valores predeterminados antes de cerrar el libro.
Private Sub Workbook_Open()
Worksheets("Hoja1").Activate
Application.DisplayFullScreen = False
End Sub
- ABRIR LIBRO EN PANTALLA COMPLETA Y OCULTAR ENCABEZADOS
Muestra la ventana en pantalla completa, ocultando la cinta de opciones, barra de fórmulas, barra de estado y encabezados de filas y columnas.
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
End Sub
Para restablecer los valores predeterminados antes de cerrar el libro.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
End Sub
- ABRIR LIBRO EN PANTALLA COMPLETA Y OCULTAR BARRA DE HOJAS
Muestra la ventana en pantalla completa, ocultando la cinta de opciones, barra de fórmulas, barra de estado y barra de etiquetas de hojas.
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Para restablecer los valores predeterminados antes de cerrar el libro.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
End Sub
- ABRIR LIBRO EN PANTALLA COMPLETA Y OCULTAR ENCABEZADOS Y BARRA DE HOJAS
Muestra la ventana en pantalla completa, ocultando la cinta de opciones, barra de fórmulas, barra de estado, barra de encabezados y barra de etiquetas de hojas.
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Para restablecer los valores predeterminados antes de cerrar el libro.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
- ABRIR LIBRO Y OCULTAR CINTA DE OPCIONES, SIN RESTABLECER
Muestra la ventana en pantalla completa, ocultando la cinta de opciones y anula el doble clic para restablecer cinta de opciones.
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", False)"
End Sub
Para restablecer los valores predeterminados antes de cerrar el libro.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", True)"
End Sub
Excel Experto VBA - Macros
Son muy buenos estos macros para mejorar la presentación en pantalla.
Genial estas presentaciones.
Sin embargo yo quisiera ir un poco mas allá. Y es que al abrir el archivo de excel presenta la ultima pagina guardada con la cinta de opciones, barra de herramientas etc como por un "pestañeo" (fraccion de segundo) y luego si ejecuta el workopen.
¿como se puede llegar a ese paso y modificarlo para que tampoco se vea?
Gracias
Hola José,
En tu caso no deberás abrirlo en pantalla completa.
Indica Worksheets("Hoja1").Activate para la hoja deseada y el código deseado. Al abrir el libro por defecto se abre con la cinta de opciones.
Saludos.