Versiones de evaluación

[Antoni]

Hola:

Ya sabemos que es imposible proteger completamente nuestros proyectos, no obstante se pueden poner algunos controles que si bastarán para aquellos que no disponen de demasiados conocimientos sobre VBA.

Aquí os dejo una macro que no deja acceder al libro a partir de un nº de días transcurrido desde la última fecha de creación o modificación del archivo.

Private Sub Workbook_Open()

DíasEvaluación = 30 'Número de días de evaluación

If Left(FileDateTime(ThisWorkbook.FullName), 10) < CStr(Date - DíasEvaluación) Then

   MsgBox "Ha terminado el periodo de evaluación", vbCritical, "Comprobación de licencia"

   Application.DisplayAlerts = False

   Application.Quit

End If

End Sub

[/CODE]

Por supuesto, si se desea, puede complementarse con un procedimiento de ocultación de hojas y protección del proyecto VBA para evitar que se acceda a la información en caso de desactivar las macros.

(Ver post de [b]tuve[/b]:[b]Obligar a habilitar las macros[/b] )

Saludos