Bloquer excel avec une date de fin utilisatio

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

A la place de MsgBox tu pourras mettre un mot de passe avec un Inputbox.

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

Le mot de passe est a
Tu peux mettre un mot de passe pour le projet vba, pour que le code ne soit pas vu par les autres utilisateurs.
Malheuresement je ne peux pas t'envoyer le classeru exemple, au boulot je n'ai pas accès aux serveurs de genre cjoint.

Merci beaucoup Lami20j, cependant peux tu m indiquer ou est ce que je dois mettre cette macro s'il te plait j 'ai un peu beaucoup de mal.
Encore merci pour ton aide
Fiona

Merci , merci Lamij20, t est le meilleur.
ta solution marche à merveille combiner au mot de passe.
J'ai fait le test en jouant sur la date systéme, en effet cela bloque le fichier en demandant un mot de passe pour l'utiliser.
ENCORE MERCIIIIIIIIIIIIII