fichier limiter dans le temps

[jerome53]

Bonjour a tous, voilà j'aimerai savoir s'il etait possible par un moyen ou un autre, de rendre un fichier Excel explotable un certain temps comme vous savez ces logiciels que l'on telecharge et qui ne sont que des versions d'évaluation (d'essais de trentes jours )par exemple

Merci à tous

 

[Temjeh]

Salut jerome53

Voici un début:

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Range("A1") > "2004-11-29" Then
MsgBox "Date périmée"
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
End Sub


Si je ne me trompe si tu met la date AUJOURDHUI() en A1...le 30 il ne fonctionne plus

A ++

Temjeh

 

[Temjeh]

Rebonsoir

J'ai juste oublié il faut mettre ce code dans ThisWorkbook

A++

Temjeh

 

[Temjeh]

Autre variante sans date en A1

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Now > "2004-11-29" Then
MsgBox "Date périmée"
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
End Sub

Temjeh

 

[jerome53]

salut Temjeh ben j'ai essayé mais ca me dit périmé!!

regardes et dis moi si j'ai fais une erreur

Merci
jerome

 

[jerome53]

up