Saltar al contenido principal

¿Cómo bloquear una posición de hoja para que siempre esté visible en el libro de Excel?

Autor: sol Última modificación: 2020-09-22

Si hay varias hojas en un libro de trabajo, cuando cambie a la última hoja, la primera hoja se ocultará en la barra de pestañas de la hoja como se muestra a continuación. Ahora desea bloquear la posición de una hoja maestra para que esté siempre visible, ¿cómo puede manejarla?

posición 1 de la hoja de bloqueo del documento doc flecha derecha posición 2 de la hoja de bloqueo del documento

Bloquear la posición de la hoja con VBA


Bloquear la posición de la hoja con VBA

Aquí presento dos códigos VBA para que maneje este trabajo.

Saltar a la hoja

1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para Windows.

2. Hacer clic en recuadro > Módulo, luego copie y pegue el siguiente código en el script.

VBA: ir a la hoja maestra

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

Note: En el fragmento de código de Hojas de cálculo ("Maestro"). Activar, puedes cambiar el Dominar a cualquier nombre de hoja que necesite.

3. Luego guarde este código y regrese al libro de trabajo, haga clic en Developer > Macros.
posición 3 de la hoja de bloqueo del documento

4. En el Macro cuadro de diálogo, seleccione el nombre del código que acaba de insertar, haga clic en Opciones, cree un acceso directo para ejecutar este código.
posición 4 de la hoja de bloqueo del documento

5. Hacer clic en OK y cierra el Macro diálogo.

A partir de ahora, mientras presionas el acceso directo que creaste, se activa la hoja maestra sea cual sea la hoja que uses.

Mantener la sábana siempre al frente.

1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para Windows.

2. Haga doble clic ThisWorkbook del desplegable Proyecto-VBAProject panel y copie y pegue el siguiente código en el script.

VBA: Mantenga la hoja siempre al frente

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

posición 5 de la hoja de bloqueo del documento

3. Guarde el código y cierre la ventana de VBA. A partir de ahora, en cualquier hoja en la que haga clic, la hoja maestra siempre permanecerá al frente de la barra de pestañas.

posición 6 de la hoja de bloqueo del documento doc flecha derecha posición 7 de la hoja de bloqueo del documento

Nota: En el código anterior, "dominar" es el nombre de la hoja que desea mantener visible, cámbielo según sea necesario.

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, Very helpfull. How can I freeze 2 sheets instead of one? Thanks (i'm beginner in VBA)
This comment was minimized by the moderator on the site
Hi, Francis, sorry for replying such late. Hope below VBA code can help you.<div data-tag="code">Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'UpdatebyExtendoffice20211115

Dim xSheet1 As Worksheet

Dim xSheet2 As Worksheet

Dim xBol As Boolean



Application.EnableEvents = False



xBol = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xSheet1 = Sheets("Sheet1")

Set xSheet2 = Sheets("Sheet2")

If (Sh.Name <> xSheet1.Name) Then

If (Sh.Name <> xSheet2.Name) Then

xSheet2.Move , xSheet1

Sh.Move , xSheet2

xSheet1.Activate

xSheet2.Activate

Sh.Activate

End If

End If

Application.ScreenUpdating = xBol

Application.EnableEvents = True

End SubIn the code, Sheet1 and Sheet2 are the two sheets that will be fixed in the front of all sheets whichever sheet you active.
This comment was minimized by the moderator on the site
This seems to change the order of my other tabs when clicking through them. Is there a way to stop that? I would like to keep them in a specific order but keep the 'master' tab visible. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations