Saltar al contenido

Ingresar con contraseña


Max2005

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

Enlace a comentario
Compartir con otras webs

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]

Enlace a comentario
Compartir con otras webs

Acá se debería cambiar colocando mayor igual que (>=).

GoTo debes tratar de no usarlo. Salvo casos extraordinarios.

If Date >= fecBorra Then GoTo avsDos[/CODE]

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.