Sécuriser un fichier Excel pour une date précise

Bonjour à vous tous,

Je dois faire un fichier excel dans lequel je dois inclure un genre de date d'expiration au fichier. C'est-à-dire qu'à compter du 1er janvier 2012, j'aimerais que les gens ne soient plus capables de l'ouvrir - sécuriser le fichier avec un mot de passe ou autre truc.

Est-ce possible ?

Merci de votre aide.

Bonjour

C'est un peu utopique car Excel est facile à "craker" pour un averti de niveau moyen.

Un exemple avec une date limite (à modifier)

Code dans ThisWorkBook

Private Sub Workbook_Open()
If Date > CDate("17/09/11") Then
ActiveWorkbook.Close
Else
MsgBox ("autorisé jusqu'au 17/09/11")
End If
End Sub

Mais il suffit de refuser l'activation des macros pour passer outre.

Une solution consiste à ne laisser qu'une feuille visible contenant un message disant que pour accéder aux autres feuilles, les Macros doivent être activées,à protèger le Code avec un MDP, et à les rendre visibles à l'ouverture,

Cordialement

Amadéus a écrit :

Bonjour

C'est un peu utopique car Excel est facile à "craker" pour un averti de niveau moyen.

Un exemple avec une date limite (à modifier)

Code dans ThisWorkBook

Private Sub Workbook_Open()
If Date > CDate("17/09/11") Then
ActiveWorkbook.Close
Else
MsgBox ("autorisé jusqu'au 17/09/11")
End If
End Sub

Mais il suffit de refuser l'activation des macros pour passer outre.

Une solution consiste à ne laisser qu'une feuille visible contenant un message disant que pour accéder aux autres feuilles, les Macros doivent être activées,à protèger le Code avec un MDP, et à les rendre visibles à l'ouverture,

Cordialement

Merci Amadéus pour ta solution et aussi ta suggestion.

Si j'ai bien compris, l'idéal serait de ne laisser quMune feuille visible dans laquelle j'indiquerais qu'il faut activer les macros pour avoir accès au reste du fichier et qu'ensuite de faire exécuter une macro (protégée par un mot de passe) qui vérifierait la date et activerait les autres feuilles si la date est ok.

merci encore

Bonsoir, sinon il y a plus radicale avec la macro Cpearson (Sub Suicide() qui efface le classeur excel sans passer par la corbeille.

cordialement