Error al ocultar hojas

[96andres96]

Buenas.

Tengo un libro de excel donde dependiendo del valor de unas celdas (Inicio de sesión) quiero que se muestren unas hojas y se oculten otras.

Tengo esta macro:

If Sheets("Principal").Range("K23") = Sheets("Usuarios").Range("B4") And Sheets("Principal").Range("K24") = Sheets("Usuarios").Range("C4") Then 'Se comprueba usuario y contraseña
''USUARIO1
	Dim Hoja As Object
    For Each Hoja In ActiveWorkbook.Sheets
        If Hoja.Name = "Inicio1" Then 'Quiero que se vea la hoja Inicio1
            Hoja.Visible = True
        Else
            Hoja.Visible = False 'Oculta el resto de hojas
        End If
    Next Hoja

 

Sin embargo,  cuando voy a ejecutar la macro me salta el siguiente error:

No se puede asignar la propiedad Visible de la clase Worksheet.

 

He estado leyendo por los foros y sale que puede ser debido a que el libro está protegido, pero en mi caso ni el libro ni ninguna hoja está protegida.

¿Alguna idea?

Gracias. 

[Janlui]

Antes del for each, pon.

Sheets("Inicio1").Visible = True

 

Lo ideal es que subas tu archivo para tener mas claridad

[96andres96]

En 13/10/2021 at 15:52 , Janlui dijo:

Antes del for each, pon.

Sheets("Inicio1").Visible = True

 

Lo ideal es que subas tu archivo para tener mas claridad

Gracias por la respuesta.

Cambiando lo que me comentaste junto con otro pequeño error que tenía me sale bien ya.

[Janlui]

Ok. no olvides dar clic en:  ? Da tu opinión. Saludos

[ortizguillermo]

Aunque el jefe Propergol me tiene castigado por ausentarme. jjjj

Aqui tienes algo que te podría solucionar el problema.

If Hoja.Name = "Inicio1" Then 'Quiero que se vea la hoja Inicio1
            Hoja.Visible = True

a mi manera de ver el problema, tienes que agregar después del If,

Sheets("Inicio1").Visible =True

Si en dado caso no te fuciona, en vez de la línea

Sheets("Inicio1").Visible= True

Cambiala por Activesheet.Visible=True

Espero te sirva, Saludos