Ingresar con contraseña

[Max2005]

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

[DiegoLG]

Buen aporte y en hora buena, felicidades...

Lamentablemente si se desactivan las macros esto no funciona, hasta hoy en actualidad no conosco alguna forma segura de proteger las macros.

Saludos.....

[Max2005]

Hola [uSER=163374]@Diego9019[/uSER]

Es cierto, tiene sus debilidades pero algo se podrá hacer ...

Saludos !!!

[rolano]

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]

[Max2005]

Hola [uSER=9984]@rolano[/uSER]

De la Fecha limite 1 y 2 días después

1 avisa

2 elimina

Saludos !!!

[rolano]

Lo has probado si cumple las dos condiciones. A mi no me funciona.

[Max2005]

Hola [uSER=9984]@rolano[/uSER]

Puedes Corroborar con este otro archivo

Saludos !!!

Contraseña de Ingreso_Max.zip

[rolano]

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]

[Max2005]

Excelente [uSER=9984]@rolano[/uSER]

Gracias por tus comentarios

Saludos !!!