Seguridad

Primero estableces la fecha de caducidad
Private Sub EstableceCaducidad()
Dim Caducar As Date
Caducar = CDate("20/5/2002")
SaveSetting "MiArchivo", "Util", "Caduca", Format(Caducar)
End Sub
en el evento Open validamos que este dentro de la fecha
Private Sub Workbook_Open()
Dim Caducidad As String
Dim Fecha As Date
Caducidad = GetSetting("MiArchivo", "Util", "Caduca")
If Caducidad <> "" Then
Fecha = CDate(Caducidad)
If Fecha < Date Then
MsgBox "Este archivo a caducado"
ThisWorkbook.Close False
End If
End If
End Sub
esta macro es para que elimines la fecha de caducidad
Private Sub QuitarCaducidad()
DeleteSetting "MiArchivo", "Util"
End Sub
La forma de que el usuario puede seguir usándolo es si cambia la fecha de su sistema, tu tarea es prever esto...