como poner numero de intentos de acceso mediante clave

[apofis]

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

[3pies]

El problema que tienes es que para que funcione debes incluir un bucle do while, que controle si el password es correcto o no, a la vez que controlamos el número de oportunidades o de intentos para poner la contraseña.

Prueba esto que acabo de hacer (está muy resumido, ya que no ha nada oculto que se muestre, ...solo es el tema del password y el control de intentos):

Código:

Sub auto_open()
intentos = 0
Do While clave <> "abuela"
    clave = InputBox("Tienes 3 intentos." & Chr(10) & Chr(10) & "Llevas " & intento & " intentos.")
    intento = intento + 1
    If intento = 3 Then ThisWorkbook.Close
Loop
End Sub

Salu2

[apofis]

eso o parecido ya lo intente,pero o me salia error en el end if o simplemente no reconocia la variable "intentos",tambien es posible que no pusiera cada cosa en su sitio

el libro esta echo con el excel 2003 y contiene 13 hojas,12 modulos y 4 formularios

el libro completo se puede descargar http://megaupload.com/?id=UHA580AB

la clave para abrir el libro es 123,el codigo y todo lo que pudiera ser util para cualquier usuario es libre y pueder hacer uso libremente de el asi como modificarlo.

[3pies]

Ese link de descarga no es correcto. Prueba a resubirlo de nuevo.

Explica un poquito de qué va ese libro de excel, porque como tu comprenderás, la gente no se va a bajar un fichero sin saber para qué sirve.

Salu2

[apofis]

tienes razon,disculpad.es un libro para el control de una pequeña empresa(es el primero que hago y para un caso particular).consta de las siguientes hojas:

creacion e impresion de facturas
control de clientes
control de proveedores
control de empleados
control de jornales
control de inventario
control de ingresos y gastos
control de facturacion
notas telefonicas
anotaciones
graficos ingresos gastos
calendario
guarda y abre libros

tiene un menu principal(con contraseña)con botones de enlace a las distintas secciones,el numero de veces que se a entrado al libro,el nombre del usuario,fecha y hora actuales.

el nuevo enlace es:http://rapidshare.com/files/83947201/control1.xls.html

[3pies]

Gracias por compartirlo. Parece interesante.

Solo 2 cuestiones, ahora que lo he visto así por encima:

1.- Yo quitaría la barra de progreso en aquellas operaciones que no lo requieran, porque las has incluído cuando se hace cualquier cosa, incluso navegar por los menús. Con la barra de progreso, las operaciones para saltar de hoja en hoja, se ralentizan.

2.- La ruta de la calculadora, normalmente es C. Tú has puesto la unidad F, como si fuera una unidad extraible (USB, por ejemplo).

Por lo demás, parece bastante interesante.

Salu2

[apofis]

si,se me fue la mano poniendo barras de progreso,en cuanto a lo de la ruta,fue un error mio al poner la de mi disco duro y no la "generica"

p.d(cualquier opinion,error o consejo siempre sera bienvenido)