Jump to content

Problema con FreezePanes


Recommended Posts

Hola compañeros,

Mi problema es el siguiente: "Tengo una macro que ejecuta un código cualquiera sobre varias hojas, y entre ello está inmovilizar los paneles de una hoja.

El problema es que yo no quiero que se inmovilicen los paneles de la ventana activa, sino de la ventana de la hoja que yo le indique.

Esto se debe a que introduzco la sentencia 'ActiveWindow.FreezePanes = true'

Entonces, mi pregunta es: ¿No existe otra sentencia para inmovilizar paneles que no sea la anterior?

Es decir, algo así como 'ThisWorkbook.Worksheets("Hoja1").FreezePanes = true'.

Ya probé con la sentencia anterior, pero obviamente no me deja dado que FreezePanes es una propiedad del objeto Window."

En fin, espero haberme explicado bien.

Agradezco cualquier aporte.

Saludos.

Link to comment
Share on other sites

Hace 15 horas, Antoni dijo:
Windows("Hoja1").FreezePanes = true

 

Hola @Antoni, no. No funciona. El objeto Windows sólo admite como parámetro el índice 1, que es lo mismo que decir "Windows(1) = ActiveWindow".

Pero gracias por el aporte.

Link to comment
Share on other sites

En 17/7/2021 at 9:56 , Antoni dijo:

Muerto el perro, se acabó la rabia.

Ejemplo: Si quieres la acción sobre la Hoja2:

Application.ScreenUpdating = False
Set Activa = ActiveSheet
Sheets("Hoja2").Activate
ActiveWindow.FreezePanes = True
Activa.Activate
Application.ScreenUpdating = True

 

Hola Antoni,

Efectivamente así es como al final lo he tenido que solucionar.

Mencionar también que si la hoja está oculta es fundamental hacerla visible, porque de lo contrario también dará error.

En definitiva, y copiando tu código quedaría algo así:

Sub InmovilizarPaneles()

Application.ScreenUpdating = False

   Const HOJA as String = "Hoja2"   ' Cambiar el nombre de la hoja...

   ThisWorkbook.Sheets(HOJA).Activate
   ThisWorkbook.Sheets(HOJA).Visible = xlSheetVisible

   ThisWorkbook.Sheets(HOJA).Cells(2, 2).Select
   ActiveWindow.FreezePanes = True

Application.ScreenUpdating = True

End Sub

Saludos, y gracias por el aporte.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy