Proteger archivo excel
Hola amigos estaba pensando, que tengo un archivo protegido por una clave y para desprotegerlo, que hubiera que poner ademas de la clave, la fecha en ese momento que figura en el ordenador, ¿seria posible? Para evitar en todo lo posible acceder al archivo y al código de las macros. Si os se ocurre otra solución, indicarmela por favor.
gracias.-
Private Sub CommandButton1_Click()
If TextBox1.Value = "1234" Then
MsgBox "CLAVE DE ACCESO CORRECTA"
Unload Me
Else
MsgBox "Lo sentimos, Usted no tiene acceso para utilizar este programa"
Unload Me
End If
End Sub
1 respuesta
Con esta modificación el usuario además de colocar la clave deberá colocar de manera seguida la hora en el siguiente formato:
Hh:mm.
Para tu ejemplo y para la hora en la que yo estoy contestando tu pregunta la clave que debería poner es:
123408:51
Private Sub CommandButton1_Click()
tiempo = Format(Now, "hh:mm")
If TextBox1.Value = "1234" & tiempo Then
MsgBox "CLAVE DE ACCESO CORRECTA"
Unload Me
Else
MsgBox "Lo sentimos, Usted no tiene acceso para utilizar este programa"
Unload Me
End If
End Sub
Hola amigo, experto también se podría aplicar en lugar de hora a fecha?, es decir 1234 y dia y mes actual?
como lo pondría?
gracias.-
Claro, solo debes cambiar la línea en la que valoras tiempo
tiempo = Format(Now, "dd/mm")
Con este cambio tu clave sería:
123401/06
