Contraseña de 3 intentos (excel)
Hola expertos buenos días...
Estoy realizando un proyecto en VBA y me gustaría ponerle un poco de seguridad y ponerle un userform donde me pida contraseña y usuario antes de mostrarme el userform del menu y que solo tenga tres intentos en el caso de que no sea correcto el usuario y la contraseña después de tres intentos me mande un mensaje y me cierre el libro de excel.
por cierto soy novato.... (si se nota verdad?? Jajaja..!!)
saludos y de antemano gracias...
Estoy realizando un proyecto en VBA y me gustaría ponerle un poco de seguridad y ponerle un userform donde me pida contraseña y usuario antes de mostrarme el userform del menu y que solo tenga tres intentos en el caso de que no sea correcto el usuario y la contraseña después de tres intentos me mande un mensaje y me cierre el libro de excel.
por cierto soy novato.... (si se nota verdad?? Jajaja..!!)
saludos y de antemano gracias...
1 respuesta
Respuesta de toldeman
1
Prueba así en el evento que utilices para abrir el form
Dim contra As Variant
pass = "n"
For i = 1 To 3
contra = InputBox("contraseña")
If contra = pass Then UserForm1.Show: Exit Sub
Next
ActiveWorkbook.Close SaveChanges:=False
Dim contra As Variant
pass = "n"
For i = 1 To 3
contra = InputBox("contraseña")
If contra = pass Then UserForm1.Show: Exit Sub
Next
ActiveWorkbook.Close SaveChanges:=False
