Comment faire pour qu'un classeur se bloque après trois mois pour obliger l'utilisateur à utiliser une version à jour ?

Public ddd as date, jr as byte    
Private sub Workbook_Open()  
Dim jr$, jj$, i%, ddd as date 
 '         jr$ = 2 utilisations:
'         1/suite de caractères écrits,    
 '        2/définir le singulier ou le pluriel du mot jour dans le    
 '        texte du MsgBox. jj$=suite de caractères lus    
Windows("zaza.xls").Activate ' Remplacer zaza par le nom de votre application  
Sheets("Feuil1").Activate   
 If [cellule] = "Mot clé" Then 
' Mot clé est le mot clé connu de vous seul 
 ' qui sera changé en une série de caractères correspondants à la date d'ouverture 
 'de l'application, définis par la routine suivante:     
For i = 1 To Len(Str(Date))     
jr$ = jr$ & Chr(nombre + (i * -2) + Asc(Mid(Str(Date), i))) 
'nombre est un  nombre qui ne doit pas être inférieur à 30 ou supérieur à 255   
Next i  [cellule] = jr$  
End If   
 ' Vient ensuite la routine qui procède à la lecture du mot et le transforme en date   
 For i = 1 To Len(Sheets("Feuil1").[cellule]) 
 jj$ = jj$ & Chr(Asc(Mid(Sheets("feuil1").[cellule], i)) - (55 + (i * -2))) 
 Next i  
ddd = jj$  If 60 - (Date - ddd)> 1 Then
 jr$ = " jours"
 Else jr$ = 
" jour"  
MsgBox " Plus que " & 60 - (Date - ddd) & jr$ & " d 'essai "   
end sub

'Remplacer le mot cellule par l'adresse d'une cellule de Feuil1, au choix et notez la. Avant d'enregistrer votre classeur inscrivez votre mot clé dans la cellule choisie.