contraseña con vencimiento

[NEGUI78]

Que tal como estan, me gustaria saber si me pueden ayudar con un codigo que quiero crear para que la contraseña tenga vencimiento dependiendo de el mes y el año. Pongo el codigo que segun yo esta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[NEGUI78]

Sub auto_open()
clave = Int((Log(Month(Date) * Year(Date))) * 123456)
x = InputBox("ingrese la palabra clave")
If x <> clave Then workbooks.close
End Sub

Perdon me havia equivocado al ponerlo ya...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ioyama]

Hola negui78

Tu problema viene dado por que no coinciden los formatos de clave (calculado) y de x (introducido con InputBox), lo que tienes que hacer es que el formato de ambos sea el mismo.
Por...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[NEGUI78]

Te agradesco mucho tu ayuda, y nuevamente molestandote como le puedo hacer en esto: se supone que el logaritmo que me esta calculando me lo da en este formato 938808 clave=format(clave,000000)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[damianomarsilva]

pienso en que debés "forzar" a las dos variables a que tengan el mismo tipo de datos, mediante las funciones intrí­nsecas de visual basic.
por ejemplo:
clave = Clong((Log(Month(Date) *...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[damianomarsilva]

bueno... ahora que leo lo que publiqué.... Dios mí­o, escribí­ cualquier pavada en el código... jaja, disculpas.
ahí­ te lo enví­o bien ordenado:

'
Dim NewKey as String * 100
Dim NewKey2 as...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

La que mando es una rutina "muy pero muy mejorable", la hice hace ya algunos años, para Proteger todas las hojas con una contraseña que cambia dia a dia.
En lugar de alojar una contraseña en una...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Luis Rivera]

Hola Gali:

Fijate que he estado estudiando por mucho tiempo la forma de proteger un archivo de excel al 100%, y cada que me topo con alguna solucion probable me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Luis Rivera]

Hola Gali:

Fijate que he estado estudiando por mucho tiempo la forma de proteger un archivo de excel al 100%, y cada que me topo con alguna solucion probable me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Agradezco tus palabras pero, lo que mas he acumulado respecto al tema "SEGURIDAD-PROTECCION" en Excel son links en los que se explica el algoritmo de Proteccion de Excel y donde se aclara que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[NEGUI78]

Agradesco su información me ha sido de mucha utilidad