Jump to content

Error al ocultar hojas


Go to solution Solved by Janlui,

Recommended Posts

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. 

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy