Salut,

Une possibilté.
Tu peux mettre dans l'evennement workbook_open un code pour tester la date
Voici un exemple.

Private Sub Workbook_Open()
  Dim dd As Date
  dd = Date
  If dd = #3/27/2009# Then MsgBox "fin d'utilisation"
End Sub

Re,

Tu vas dans le menu Outils / Macros / Visual Basic editorDans la fênetre qui s'ouvre tu verras une arborescence. Ton classeur (workbook correspondra à un projet) tu le verras comme ça VBAProject(tonclasseur.xls).

Dans le dossier MicrosoftExcelObjects tu verras ThisWorkbook.
Tu ferras double clic sur lui et ensuite tu mettras ce code

Private Sub Workbook_Open()
    Dim dd As Date
    dd = Date
    If dd = #3/27/2009# Then
        rep = InputBox("Nous sommes le " & dd & vbCrLf & "Entrez le mot de passe", "Connexion")
        Do While rep <> "a"
            rep = InputBox("Nous sommes le " & dd & vbCrLf & "Entrez le mot de passe", "Connexion")
        Loop
    End If
End Sub