Macro para mostrar una hoja sí y solo sí una celda tiene un valor determinado

[jeporiol]

Buenas tardes,

Me gustaría que me ayudaseis a crear una macro con las siguientes características:

• Cuando pones una o más palabras (un texto y no un valor) en una celda determinada, te da acceso a otra hoja de Excel. Sin la introducción de las palabras correctas, no se puede abrir la hoja (es como una especie de contraseña). Tiene que ser válido para más de una combianción de palabras (hay más de una contraseña correcta).
  

Muchas gracias

[John Jairo V]

Hola @[uSER=172349]jeporiol[/uSER]. Con un código como éste, puedes hacer lo que requieres.

En el ejemplo, la celda C5 es donde está la celda que debes escribir la contraseña.

Las contraseñas que "muestran" la hoja oculta es papa, pepe, pipi, popo, o pupu.

Private Sub Worksheet_Change(ByVal Target As Range)

    Set Celda = Range("C5")

    If Not Intersect(Celda, Target) Is Nothing Then

        On Error Resume Next

        Set wf = Application.WorksheetFunction

        dec = wf.IsNumber(wf.Match(Celda, Hoja2.Range("A1:A5"), 0))

        If dec Then

            Hoja2.Visible = xlSheetVisible

        Else

            Hoja2.Visible = xlSheetVeryHidden

        End If

    End If

    Set Celda = Nothing

    Set wf = Nothing

End Sub

[/CODE]

Adjunto archivo ejemplo.

Espero haberte ayudado, Dios te bendiga!

Libro1.xls