![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
11/01/2008, 07:46
|
![Avatar de apofis](http://static.forosdelweb.com/customavatars/avatar209707_1.gif) | | | Fecha de Ingreso: enero-2008 Ubicación: españa
Mensajes: 77
Antigüedad: 17 años, 1 mes Puntos: 1 | |
como poner numero de intentos de acceso mediante clave lo intentando de varias formas y no lo consigo o solo a medias,se trata de limitar a 3 los intentos de introduccion de clave de acceso,aqui les dejo la macro del control de acceso por si pueden echarme una mano: Sub auto_Open()
Load ProgressDlg
ProgressDlg.Show
recuperar = "123"
x:
clave = InputBox("* este libro esta protegido mediante clave." & Chr(10) & " sin ella no puede acceder a sus funciones." & Chr(10) & "* (NO PIERDA SU CLAVE) " & Chr(10) & " " & Chr(10) & "introduce aqui tu clave de acceso: ", "clave de seguridad del libro", "********", 3000, 3000)
If clave = "123" Then
MsgBox "clave valida,ahora tiene acceso", 64, "..........seguridad.........."
Sheets("inicio").Visible = True
Sheets("inicio").Activate
Sheets("inicio").Range("A1").Select
Else
MsgBox "clave no valida", 16, "..........seguridad.........."
recupera = InputBox("¿cual es tu animal preferido?", "recuperar clave", "***", "300,300")
If recupera = "perro" Then
MsgBox ("su clave es:") & recuperar
Else
End If
GoTo x
End If
End Sub
p.d(lo e intentado mediante una variable tipo intentos=3,intentos=intentos-1,if intentos=0 then.......) sin resultados |