Ocultar una hoja de Excel con 1palabra2clave

shahrazed -  
pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   -
Hola,
me gustaría saber cómo puedo proteger mi hoja oculta con una contraseña, es decir, cuando haga clic en mostrar, se muestre un cuadro de diálogo para ingresar la contraseña. Gracias.

<config>Windows 7 / Safari 537.1</config>

4 respuestas

  1. Mike-31 Mensajes publicados 18405 Fecha de registro   Estado Colaborador Última intervención   5 147
     
    Hola,

    este código hace que la hoja2 sea invisible
    Sub Cache()

    Worksheets("Feuil2").visible = xlVeryHidden 'xlSheetHidden
    End Sub

    este código pide una contraseña para mostrar la hoja2 que es toto

    Sub visible()
    Dim Mdp
    retorno:
    Mdp = InputBox("Introduce la contraseña", "Advertencia: el acceso a las hojas está protegido ")
    ' If Mdp = "" Then Exit Sub
    If Mdp <> "toto" Then Exit Sub
    Worksheets("TM00").visible = True
    End Sub

    https://www.cjoint.com/?BHqnPal8Hlj

    A+
    Mike-31

    Un período de fracaso es un momento ideal para sembrar las semillas del conocimiento.
    0
    1. pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773
       
      Hola Mike,

      Perdona mi intervención, no había refrescado...

      Espero que todo esté bien para ti.

      ¡Que tengas un buen día!
      0