Saltar al contenido principal

¿Cómo aplicar paneles de congelación / descongelación a varias hojas de trabajo a la vez?

Supongamos que tiene un libro de trabajo grande que contiene cientos de hojas de trabajo, y ahora necesita aplicar Freeze Panes para congelar todas las hojas de trabajo a la vez. Con la función Freeze Panes de Excel, puede congelar solo una hoja de trabajo a la vez, ¿hay alguna manera de congelar o descongelar todas las hojas de trabajo inmediatamente a la vez en Excel?

Aplique Freeze Panes a todas las hojas de trabajo a la vez con código VBA

Aplique Unfreeze Panes a todas las hojas de trabajo a la vez con código VBA

Aplique Congelar / Descongelar Paneles a todas las hojas de trabajo a la vez con un clic con Kutools para Excel


Puede usar el siguiente código para aplicar Freeze Panes a todas las hojas de trabajo, siga los siguientes pasos:

1. Si desea congelar todas las hojas de trabajo en la misma posición, seleccione una celda que desea congelar en la hoja de trabajo y luego mantenga presionada Shift para seleccionar todas las pestañas de la hoja.

2. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código VBA: congele todas las hojas de trabajo a la vez en Excel

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Y luego presione F5 para ejecutar este código, y todas las hojas de trabajo se han aplicado con los paneles congelados en la misma posición.

Nota: Si no se seleccionan todas las hojas de trabajo y las celdas activas de cada hoja de trabajo están ubicadas en diferentes posiciones, los paneles congelados estarán en los diferentes lugares como las celdas activas.


Si se aplican varias hojas de trabajo con los paneles de congelación en su Excel, ¿cómo podría descongelarlas a la vez, excepto descongelarlas una por una?

1. Inicie su libro de trabajo cuyas hojas de trabajo se han aplicado con los paneles de congelación.

2. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código VBA: descongele todas las hojas de trabajo a la vez en Excel

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Y luego presione F5 para ejecutar este código, y todas las hojas de trabajo que se aplicaron con los paneles de congelación se han descongelado a la vez.


Si no está familiarizado con los códigos VBA, aquí hay una herramienta poderosa: Kutools for Excel, su Congelar paneles de varias hojas de trabajo y Descongelar paneles de varias hojas de trabajo Las utilidades pueden ayudarlo a congelar o descongelar todas las hojas de trabajo del libro actual a la vez.

Nota: Para aplicar esto Congelar paneles de varias hojas de trabajo, en primer lugar, debe descargar el Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione una celda donde desea aplicar el panel de congelación para todas las hojas de trabajo, en este caso, hago clic en la celda B2, mira la captura de pantalla:

doc congelar todas las hojas 1-1

2. Luego haga clic Kutools Más > Hoja de trabajo > Congelar paneles de varias hojas de trabajo, ver captura de pantalla:

3. Y luego a todas sus hojas de trabajo se les han aplicado los paneles de congelación en la misma posición de la celda B2.

Note: Si desea descongelarlos inmediatamente, solo necesita aplicar la función Descongelar paneles de múltiples hojas de trabajo haciendo clic en Kutools Más> Hoja de trabajo > Descongelar paneles de varias hojas de trabajo.

¡Descargue y pruebe Kutools para Excel ahora!


Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
dear all, I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet. it's really helpful. this info is what I am looking for. thank you very much Lan
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations