Problema con FreezePanes

[jesuspg]

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.

[Mauricio_ODN]

Hola @paikerr

Tal vez el archivo te pueda ayudar un poco.

Nos comentas, Saludos.

FrezeeP_1.1.xlsm

[Antoni]

Windows("Hoja1").FreezePanes = true

 

[jesuspg]

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.

[jesuspg]

Hace 16 horas, Mauricio_ODN dijo:

Hola @paikerr

Tal vez el archivo te pueda ayudar un poco.

Nos comentas, Saludos.

FrezeeP_1.1.xlsm 15.54 kB · 0 descargas

Voy a estudiarlo. A ver que puedo sacar en claro de todo ello.

Saludos, y muchas gracias por el aporte.

[Antoni]

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

 

[jesuspg]

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.