soygranate

fernando16 respondió: Inserta un botón de comando y introducele este código: Private Sub CommandButton1_Click() If Range("A1").Value = "PEPE" Then Sheets("Hoja3").Select Else Sheets("Hoja1").Select End If End Sub Eso debería resultar ya que yo lo probé antes enviártelo.....

jbf99 respondió: Prueba a incluir este código en el código de la página, sustituye password por la contraseña que quieras y Hoja2 por la hoja destino: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Range("A1").Value = "password" Then...

Elsa Matilde respondió: Esta rutina que te adjunto, selecciona diferentes hojas según la clave ingresada. Las hojas primero se pasan a visibles (tendrás que tener otra rutina que las oculte al finalizar) La copias en el Editor, en el objeto HOJA1. (Ajustando a tus...