Validité d'un classeur

re-bonjour,

j'ai besoin d'envoyer un classeur excel à un client mais je voudrais que ce classeur ne s'ouvre plus apres une certaine date.

Le client serait obligé de m'appeler pour que je luis donne un code ou mot de passe pour revalider juqu'a une certaine date.

est-ce possible ?

merci pour tout

Bonjour

Si ton client est vraiment un nul en Excel, c'est faisable par Macro, mais avec un minimum de connaissance, ton client peut modifie l'horloge du PC, et ouvrir le fichier ou désactiver les maros.

Cordialement

allons-y pour la macro ......si vous pouvez m'aider

Re bonjour

Je ne suis pas spécialiste VBA. Un début

s'ouvre jusqu'au 30/01/09

Si tu valides la ligne 'Application.Quit, la macro ferme excel

Tu peux ajouter les mots de passe..

Code à placer dans ThisWorkbook

Private Sub Workbook_Open()
If Date > CDate("30/01/09") Then
MsgBox ("La date de validité a expirée depuis le 30/01/09, veuillez me contacter pour obtenir un nouveau fichier!")
'Application.Quit
ActiveWorkbook.Close
Else
MsgBox ("autorisé jusqu'au 30/01/09")
End If
End Sub

Cordialement

Bonjour Amadéus,

et merci.

ou dois-je mettre toutes ces lignes (a quel endroit dans mon fichier)

Philippe

Bonjour

Comme c'est écrit dans le premier message

Code à placer dans ThisWorkbook

Tu copies ce code, tu vas sur ton fichier, tu fais Alt+F11 pour ouvrir l'éditeur VBA, tu cliques sur ThisWorkbook et tu colles le code dans la fenêtre.

Cordialement

https://www.excel-pratique.com/~files/doc/Outil_suivi_clients.zip

pourquoi ca ne fonctionne pas ?

merci de ton aide

Philippe

Bonjour

1) cela ne peut fonctionner puisque ta date limite est au 28/02/09

2) Sur ce fichier, la date est au 31/01/2009

et le code

Private Sub Workbook_Open()
If Date > CDate("30/01/09") Then
MsgBox ("La date de validité a expirée depuis le 30/01/09, veuillez me contacter pour obtenir un nouveau fichier!")
'Application.Quit 
ActiveWorkbook.Close False
Else
MsgBox ("autorisé jusqu'au 30/01/09")
End If
End Sub

Tu as le choix entre l'activation de la ligne

'Application.Quit (en supprimant l'apostrophe)

ActiveWorkbook.Close

qui fermera excel

ou

ActiveWorkbook.Close False

qui ferme le fichier

https://www.excel-pratique.com/~files/doc/Outil_suivi_clients.xls

J'ai supprimé des feuilles pour la démo

Cordialement

je te remercie pour ta patience,

mais j'ai une tout dernière question.

lorsque j'enregistre le fichier j'ai plusieurs formats et que me conseilles tu?

dois-je impérativement enregistrer en format excel qui prend en compte les macros mais dans ce cas le format est different de .xls.

Est ce important car il faut que je transmette ce fichier à plusieurs clients qui ont des versions excel allant de 2003 à maintenant.

encore merci pour ton aide

Bonjour

Personnellement, je n'ai qu' Excel 2003, Je pense que cela fonctionne également sur les versions postérieures.

Cordialement

MERCI CA FONCTIONNE