Jump to content
Sign in to follow this  
Max2005

Ingresar con contraseña

Recommended Posts

Hola Amigos ...

Aquí les dejo este programa que solicita contraseña para iniciar de acuerdo a una fecha, el uso es muy sencillo para ingresar les dejo la contraseña en la hoja1, y esta fechado al 15 de septiembre de 2015 y lo único que hace es darte 2 avisos antes de borrar el archivo, se deberá de manejar precaución ya que si olvidan la contraseña se elimina el archivo ... :(

La Macro se encuentra en "ThisWorkbook"

Básicamente lo comparto para que exploren la programación, se que hay varias formas de hacer proteger datos pero esta se me hizo muy interesante y sobre todo espero les sea de utilidad.

Saludos

Max2005

Contraseña de Ingreso.zip

Share this post


Link to post
Share on other sites

Hola [uSER=205875]@Max2005[/uSER], cuando se cumple la 2da y 3ra condición.


'fecAviso = DateSerial(2015, 9, 19) ' De la fecha 19 hacia adelante no reconoce ninguna condición (If Then)
'fecAviso = DateSerial(2015, 9, 16) ' De la fecha 18 hacia atrás reconoce esta condición (If Date >= fecAviso Then Exit Sub)

fecBorra = fecAviso + 2
fecLimit = fecAviso + 1

If Date >= fecAviso Then Exit Sub
If Date = fecLimit Then GoTo avsUno '
If Date = fecBorra Then GoTo avsDos '
[/CODE]

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png