Contraseña Excel 2010
Hola, a ver si alguien me puede ayudar. Tengo un documento en Excel 2010 que me gustaría ponerle contraseña para que cuando se abra el documento te pida una clave de acceso, pero me gustaría poder hacer que dicha clave caducase en un determinado plazo y que no se podría acceder al documento. Mi preguntas son;
¿Es posible de una manera sencilla hacer eso?
Si es posible ¿Cómo se hace?
Gracias de antemano por vuestras respuestas.
Un saludo.
¿Es posible de una manera sencilla hacer eso?
Si es posible ¿Cómo se hace?
Gracias de antemano por vuestras respuestas.
Un saludo.
1 respuesta
Respuesta de Enrique Bernal
1
Lo primero sería que tengas una base con los usuarios, claves y fechas de caducidad.
Lo segundo es un userform para que que se ejecute cada vez que abras el archivo, y claro ese userform además de validar la contraseña, validaría la fecha de caducidad.
Para mi ejemplo la hoja que tiene la base de datos se llama "claves" y el orden A: Usuario B: Contraseña; C : Caducidad.
Private Sub CommandButton1_Click()
On Error Resume Next
Usuario = TextBox1.Value
Clave = TextBox2.Value
Sheets("Claves").Select
Columns("A:A").Select
Selection.Find(What:=Usuario, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
fila = ActiveCell.Row
If Range("B" & fila).Value = Val(Clave) Then
If Date > Range("C" & fila).Value Then
MsgBox "Contraseña Expirada"
Application.Quit
End If
Else
MsgBox "Contraseña Incorrecta"
Application.Quit
End If
End Sub
Yo lo pegue dentro del mismo userform con un commandbuton
Lo segundo es un userform para que que se ejecute cada vez que abras el archivo, y claro ese userform además de validar la contraseña, validaría la fecha de caducidad.
Para mi ejemplo la hoja que tiene la base de datos se llama "claves" y el orden A: Usuario B: Contraseña; C : Caducidad.
Private Sub CommandButton1_Click()
On Error Resume Next
Usuario = TextBox1.Value
Clave = TextBox2.Value
Sheets("Claves").Select
Columns("A:A").Select
Selection.Find(What:=Usuario, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
fila = ActiveCell.Row
If Range("B" & fila).Value = Val(Clave) Then
If Date > Range("C" & fila).Value Then
MsgBox "Contraseña Expirada"
Application.Quit
End If
Else
MsgBox "Contraseña Incorrecta"
Application.Quit
End If
End Sub
Yo lo pegue dentro del mismo userform con un commandbuton
