Hola:

Os adjunto dos archivos:

1) LicenseGenerator:

Contiene un formulario que añade un Nº de Licencia y una Fecha de Validez a un archivo seleccionado previamente. El Nº de licencia consiste en 4 números de 4 cifras, de las cuales la cuarta cifra se obtiene a partir de un cálculo que se realiza con las otras 3. El número de tres cifras se obtiene aleatoriamente entre 101 y 999.

Cuarta cifra = [(Unidades *2) + (Decenas * 4) + (Centenas * 8)] Módulo 10

La fecha de validez consiste en una fecha a 30 días, 60, días, 90, días o indefinida.

Esta información se incrusta en la celda A1 de la hoja $$$Versión$$$, hoja que si no existe se crea y si existe se modifica.

La forma de incrustar la información es a través del objeto SmarTags. Este objeto nos permite añadir etiquetas inteligentes a un rango. Utilizamos este sistema porqué la información añadida es opaca al usuario si la etiqueta no es una de las etiquetas reconocidas por Excel. Válido solo para Excel 2007.

2) LicenseComprobator:

Contiene la macro ComprobarLicencia, que debe añadirse al evento Open del libro al que hemos añadido la licencia.

Espero haberme explicado bien, si no, no dudeis en consultar.

Saludos.

PD. No tiene ningún sentido si no se protege el proyecto VBA.

Si, si,.. ya lo se, existen métodos mas sofisticados para calcular el dígito de control, pero hoy estoy vago, a sea que el quiera lago mas bonito, ya sabe lo que hay que hacer.

16.09.2012

La forma de incrustar la información es a través del texto de una autoforma no visible.

Válido para todas las versiones de Excel.

Descargar esta versión en el post #25.

LicenseGenerator.zip

LicenseComprobator.zip

No hay absolutamente nada que se pueda hacer al respecto.

Esta sencillo tu metodo yo pra mis archivos uso algo parecido, yo me preguntaba si habra realmente algún metodo para proteger nuestros archivos Excel.

Hola Marco Antonio, tengo una consulta... He probado tu generados y comprobador de licencia y funciona perfectamente; sin embargo, si protejo y comparto el libro (y aún si sólo lo comparto) me aparece licencia expirada. Estuve tratando de desproteger el libro con ActiveWorkbook.UnprotectSharing ("password") cuando se ejecuta la macro y hasta ahí todo bien, el problema viene cuando trato de proteger y compartir el libro nuevamente con ActiveWorkbook.ProtectSharing.

¿Esta es la forma correcta para el procedimiento que necesito realizar (desproteger con pass el libro, comprobar licencia y proteger con pass el libro)? ¿Cual es la forma correcta de proteger nuevamente el libro?

Espero contar con tu valiosa ayuda. Gracias

Saludos

¿Esta es la forma correcta para el procedimiento que necesito realizar (desproteger con pass el libro, comprobar licencia y proteger con pass el libro)? ¿Cual es la forma correcta de proteger nuevamente el libro?

La verdad es que no tengo ni idea, jamás he trabajado con libros compartidos/protegidos.

A ver si alguien acostumbrado a ello te puede comentar alguna cosa.

Dios... que bueno las cosas que saben algunos !!!

Existira algun implemento similar para office 2010 ?

Gracias

Dios... que bueno las cosas que saben algunos !!!

Existira algun implemento similar para office 2010 ?

Gracias

Me imagino que leiste solo el primer mensaje, algo normal en la mayoria de las personas que quieren algo pero no leen, en el mensaje 25 esta la solución para todas las versiones de excel, suerte

Me imagino que leiste solo el primer mensaje, algo normal en la mayoria de las personas que quieren algo pero no leen, en el mensaje 25 esta la solución para todas las versiones de excel, suerte

jejejee

tenes razon..

Encima cuando lo probe me di cuenta.

Saludos a todos.

En el post #1 dice:

16.09.2012

La forma de incrustar la información es a través del texto de una autoforma no visible.Válido para todas las versiones de Excel.

Descargar esta versión en el post #25.

@[uSER=166916]javgozzi[/uSER], ¿Has probado con el archivo del post #25?

En el post #1 dice:

@[uSER=166916]javgozzi[/uSER], ¿Has probado con el archivo del post #25?

Muchas gracias !

COMO LO QUITO

AHORA LA APLICACIÓN ME SALE EN TODOS LOS ARCHIVOS QUE TENGO

mmm. interesante. muy interesante..

adjunto algo sencillo para ayudar a la comunidad

demo2.rar

Hola a todos:

Pues efectivamente solo funciona con Excel2007.

Os adjunto otras macros válidas para cualquier versión de Excel.

El funcionamiento es idéntico a la versión anterior.

Nueva funcionalidad:

Al comprobar la licencia se comprueba que no haya cambiado el nombre del archivo.

Así evitamos copias del archivo.

Saludos

Hola! he probado lo indicado para excel 2010 y 2013 pero no funciona, continua indicando que la licencia a expirado o es inexistente, por que podría ser? Al agregar el código del archivo comprobar licencia no la comprueba por que el codigo que va en Thisworkbook tiene una tilde así:

Private Sub Workbook_Open()

'ComprobarLicencia

End Sub[/CODE]

pero al quitarle esa tilde de la siguiente manera si me la comprueba:

[CODE]Private Sub Workbook_Open()
ComprobarLicencia
End Sub[/CODE]

A pesar de eso me funciona en excel 2007 pero en 2010 y 2013 no funciona. Me podrías ayudar

[size=4][b]winkey777 ?[/b][/size]

..

Creo que el problema esta en la nueva funcionalidad de la copia del archivo, ya que creo el archivo con licencia en un computador con excel 2007 pero al querer probarlo en excel 2013 lo copio a otro computador... puedes indicarme como quitarle esa funcionalidad?

Hola! he probado lo indicado para excel 2010 y 2013 pero no funciona, continua indicando que la licencia a expirado o es inexistente, por que podría ser? Al agregar el código del archivo comprobar licencia no la comprueba por que el codigo que va en Thisworkbook tiene una tilde así:

Private Sub Workbook_Open()

'ComprobarLicencia

End Sub[/CODE]

pero al quitarle esa tilde de la siguiente manera si me la comprueba:

[CODE]Private Sub Workbook_Open()
ComprobarLicencia
End Sub[/CODE]

A pesar de eso me funciona en excel 2007 pero en 2010 y 2013 no funciona. Me podrías ayudar

[size=4][b]winkey777 ?[/b][/size]

..

hola [uSER=213961]@Christian Zuleta[/uSER],. si dime que necesitas, en tu archivo..

Quiero ponerle licencia a un archivo Excel, pero necesito estarlo moviendo de computador por lo tanto necesito el código sin la nueva funcionalidad que no permite que el archivo sea copiado, pues al ser copia indica que esta expirado.

Me podrías facilitar el código para ponerle licencia sin esa proteccion, pero que sirva para todos las versiones de excel.

Quedo inmensamente agradecido.

hola [uSER=213961]@Christian Zuleta[/uSER],. si dime que necesitas, en tu archivo..

Quiero ponerle licencia a un archivo Excel, pero necesito estarlo moviendo de computador por lo tanto necesito el código sin la nueva funcionalidad que no permite que el archivo sea copiado, pues al ser copia indica que esta expirado.

Me podrías facilitar el código para ponerle licencia sin esa proteccion, pero que sirva para todos las versiones de excel.

Quedo inmensamente agradecido.

Quiero ponerle licencia a un archivo Excel, pero necesito estarlo moviendo de computador por lo tanto necesito el código sin la nueva funcionalidad que no permite que el archivo sea copiado, pues al ser copia indica que esta expirado.

Me podrías facilitar el código para ponerle licencia sin esa proteccion, pero que sirva para todos las versiones de excel.

Quedo inmensamente agradecido.

Ok. fijate que yo uso un metodo facil pero efectivo.. trabajo con el serial de disco duro de cada PC's. es decir se puede copiar de computador a computador. pero en cada computador se le da una clave porque cambia cada serial. y pues tu defines el tiempo de uso.

Ok. fijate que yo uso un metodo facil pero efectivo.. trabajo con el serial de disco duro de cada PC's. es decir se puede copiar de computador a computador. pero en cada computador se le da una clave porque cambia cada serial. y pues tu defines el tiempo de uso.

Y como es ese metodo?

Y como es ese metodo?

me podes pasar tu correo, te subo el archivo, ya que pesa 1.5 mb.

me podes pasar tu correo, te subo el archivo, ya que pesa 1.5 mb.

xxxxxxxxxxxxxxxxxxxx Borrado corrreo por el Foro

ya te mande el archivo [uSER=213961]@Christian Zuleta[/uSER]

Se ha borrado el correo electrónico en el mensaje #46. Las Normas prohiben publicar e. mail

Saludos