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.
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.
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