fichier à durée de vie limitée

[plebreton]

Bonjour le forum

Je suis à la recherche d'une solution pour limiter la durée de vie d'un fichier excel.
Le tout en évitant de se baser sur l'horloge de l'ordinateur qui peut être modifiée par des utilisateurs avertis...
On peut imaginer un mot de passe qui aurait une durée de vie limitée...

Merci par avance de votre aide...

 

[Temjeh]

Bonjour le forum
Et longue vie à ce site

Voici une idée a mettre dans Workbook_Open

Private Sub Workbook_Open()
If Date > CDate('01/01/05') Then
MsgBox ('pas autorisé')
Application.Quit
ActiveWorkbook.Close
Else
MsgBox ('autorisé')
End If
End Sub


*****ATTENTION TU NE POURRAS PLUS LE RÉOUVRIR APRÈS*****

Moi à 40 ans



Dieu nous a donné deux extrémités :
l'une pour s'asseoir, l'autre pour réfléchir.
La vie dépend de celle qu'on utilise :
face on gagne, pile on perd.

[Paul-Emile Victor]



A++

Temjeh

 

[Temjeh]

Pas sûr je me suis trompé avec le signe plus grand prend ceci:

Celui-ci ouvre plus

Private Sub Workbook_Open()
If Date < CDate('01/01/2006') Then
MsgBox ('pas autorisé')
Application.Quit
ActiveWorkbook.Close
Else
MsgBox ('autorisé')
End If
End Sub

Celui-ci ouvre

Private Sub Workbook_Open()
If Date < CDate('29/01/2006') Then
MsgBox ('pas autorisé')
Application.Quit
ActiveWorkbook.Close
Else
MsgBox ('autorisé')
End If
End Sub

A+

Temjeh

 

[plebreton]

Merci Temjeh,

Je vais essayer en définissant par exemple une limite mini et maxi de date.

Encore merci pour ton aide et excellente continuation