Excel con fecha de vencimiento

'Primero en una celda cualquiera del libro define la fecha de expiracion.
'Luego te vas a Macros Editor visual y buscas en los proyecto el icono
'que tiene el simbolo de excel que corresponde al libro. (normalmente dice "This Workbook")
'Luego por el lado derecho de la pantalla en la parte superior donde dice
'"General" seleccionas buscando lo que dice Workbook al activarlo automáticamente
'se abre una sub-rutina que dice Open, lo que alli escribas se ejecutará en cuanto se
'abra el archivo.
'Te advierto que si la persona que lo abra desactiva las macros todo esto queda sin ejecución.
'Para hacer lo que pides debes escribir dentro de la rutina lo siguiente
'Vamos a Asumir que la Hoja donde pusiste la fecha se llama Hoja1 y que la celda
'en donde la pusiste se es A1
Private Sub Workbook_Open()
Dim Fecha As Date
Dim Hoy As Date
Fecha = Format(Worksheets("Hoja1").Range("A1"), "dd/mm/yyyy")
Hoy = Format(Now(), "dd/mm/yyyy")
If Hoy > Fecha Then
MsgBox "La fecha máxima de uso ya se cumplió, el archivo se cerrará", vbCritical
Application.Quit
End If
End Sub
'y Eso sería, si la respuesta te ha servido no olvides cerrar la pregunta y puntuar la respuesta.
'