¿Cómo mantener la ventana de Excel siempre en la parte superior?
¿Alguna vez ha deseado mantener sus ventanas de Excel siempre en la parte superior y no estar cubiertas por otras ventanas? Desafortunadamente, Excel no proporciona una función para resolver esta tarea. Pero, aquí, puedo darte un código VBA para hacer frente a este trabajo.
Mantenga la ventana de Excel siempre en la parte superior con el código VBA
Mantenga la ventana de Excel siempre en la parte superior con el código VBA
El siguiente código de VBA puede ayudarlo a mantener la ventana de Excel siempre en la parte superior, el código se aplica tanto a Office de 32 bits como a Office de 64 bits.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: mantenga la ventana de Excel siempre en la parte superior
'Update 20140909
#If Win64 Then
Public Declare PtrSafe Function SetWindowPos _
Lib "user32" ( _
ByVal hwnd As LongPtr, _
ByVal hwndInsertAfter As LongPtr, _
ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) _
As Long
#Else
Public Declare Function SetWindowPos _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hwndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) _
As Long
#End If
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
Dim xStype As Long
#If Win64 Then
Dim xHwnd As LongPtr
#Else
Dim xHwnd As Long
#End If
If OnTop Then
xStype = HWND_TOPMOST
Else
xStype = HWND_NOTOPMOST
End If
Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
ShowXLOnTop True
End Sub
Sub SetXLNormal()
ShowXLOnTop False
End Sub
3. Entonces presione F5 clave para ejecutar este código, y una Macros aparecerá el cuadro de diálogo, seleccione EstablecerXLOnTop opción, y haga clic Ejecutar del botón.
4. Y luego, su ventana de Excel estará siempre encima de otras aplicaciones.
Note: Si desea que la ventana de Excel vuelva a la normalidad, simplemente presione F5 clave para abrir el Macros diálogo, elegir EstablecerXNormal y haga clic Ejecutar.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!