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