macro de excel con serial, y clave.

SwordfishCerberos
10 de Enero del 2006
hola no se si se pueda al abrir un libro de excel, con macros, ejecutarse un modo de prueba de 30 dias, y despues que el libro no se abra hasta no meterle la clave correcta, para esto sacaria un useform el cual muestra el serial (seriales dieferentes 1 al 15) dependiendo el serial es la clave,
este es un ejemplo chico

Private Sub Workbook_Open()

Dim F_Inicio As Date
Dim F_Actual As Date
Dim Periodo As Long

F_Inicio = "01/01/2005"
F_Actual = Date
Periodo = 90 'en dias

If F_Actual > F_Inicio + Periodo Then
MsgBox "Caduco el Periodo de Prueba"
ActiveWorkbook.Close
End If

End Sub

Por favor ayudenme maestros de programacion.