VBA salir de pantalla completa
Resuelto
Anthelm
Mensajes publicados
202
Estado
Miembro
-
Anthelm Mensajes publicados 202 Estado Miembro -
Anthelm Mensajes publicados 202 Estado Miembro -
Hola,
He puesto algunas fórmulas en un archivo para permitir mostrar Excel en pantalla completa y sin la barra de menú.
El problema es que, cuando abro otro archivo, tengo la impresión de que esta configuración se mantiene. ¿Es normal?
¿Debo agregar en VBA una visualización "normal" al cerrar el archivo que he creado, sería suficiente?
Configuración: Windows / Firefox 64.0
He puesto algunas fórmulas en un archivo para permitir mostrar Excel en pantalla completa y sin la barra de menú.
El problema es que, cuando abro otro archivo, tengo la impresión de que esta configuración se mantiene. ¿Es normal?
¿Debo agregar en VBA una visualización "normal" al cerrar el archivo que he creado, sería suficiente?
Configuración: Windows / Firefox 64.0
3 respuestas
-
Hola,
« He puesto algunas fórmulas en un archivo para permitir mostrar Excel en pantalla completa y sin la barra de menú. » ¡Es muy sorprendente!
¿Qué fórmulas utilizas para eso?
--
Atentamente
Patrice-
«À l'ouverture du fichier, ouvrir sur la feuille "Saisie"
Private Sub Workbook_Open()
Sheets("Saisie").Select
Range("C45").Value = 0
Sheets("Saisie").Select
Range("C45").Select
ActiveWindow.Zoom = 75
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Application.DisplayFullScreen = True
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub» -
-
-
Sí, bueno, efectivamente era eso.
He añadido:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Y ya no tengo problemas. -
```vba
Private Sub Workbook_Open()
On Error GoTo ErrorHandler
With Sheets("Saisie")
.Select
.Range("C45").Value = 0
End With
ActiveWindow.Zoom = 75
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Application.DisplayFullScreen = True 'masque le ruban
ActiveWindow.DisplayWorkbookTabs = False 'masque les onglets
Exit Sub
ErrorHandler:
MsgBox "Une erreur est survenue lors de l'ouverture du classeur.", vbExclamation
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo ErrorHandler
Application.DisplayFullScreen = False 'rétabli le Ruban
ActiveWindow.DisplayWorkbookTabs = True 'affiche les onglets
Exit Sub
ErrorHandler:
MsgBox "Une erreur est survenue lors de la fermeture du classeur.", vbExclamation
End Sub
```
