Contraseña para Macro!
Hola!! Espero Tener Suerte!!. Tengo esta macro que es simple, que va de una hoja de calculo a otra!!. Como seria para colocarle una contraseña a esta macro. Osea, hago clic en el botón, me pide contraseña.
Esta es la macro!!. Como se le agrega la programación para que sea como quiero??? Tengo exel 2007. Gracias!!!
Sub IrDeposito()
'
' IrDeposito Macro
'
'
Sheets("DEPOSITO").Select
End Sub
1 respuesta
¿Cómo te va?
Supongo que quieres poner una contraseña para tener acceso a la hoja. Entonces la macro podría ser así. En este ejemplo la contraseña es la palabra "hola"
Sub IrDeposito()
p1 = InputBox("introduzca la contraseña para deposito")
If p1 <> "hola" Then
MsgBox "lo siento no tiene acceso"
Exit Sub
Else
Sheets("DEPOSITO").Select
Range("a1").Select
End If
End SubSería interesante que la hoja "DEPOSITO" estuviera oculta para que el usuario no tenga acceso a ella libremente. Si lo quieres así la macro sería así
Sub IrDeposito()
p1 = InputBox("introduzca la contraseña para deposito")
If p1 <> "hola" Then
MsgBox "lo siento no tiene acceso"
Exit Sub
Else
sheets("DEPOSITO").visible = true
Sheets("DEPOSITO").Select
Range("a1").Select
End If
End Sub¿Era esto lo que necesitas?
JO JO JO EXCELENTE!!! LA SEGUNDA FORMA ME GUSTO MAS!!!
NO ME DI CUENTA DE ESE DETALLE!!!. UNA COSA DE LOCOS!!!!
QUE GRANDE LUIS!!!!
MUCHAS GRACIAS!!!!
