verouiller l'acces a un fichier a partir d'une certaine date

[olivemotard]

Bonjour

Je vais poser une question, et je ne suis pas sur que cela existe et soit possible

J'au créé un moteur de recherche (je devrais dire nous car le forum m'a bien aidé) et je voudrais que ce fichier se bloque a une date precise et qu'un mot de passe soit demandé pour rendre a nouveau le fichier utilisable, mais je n'ai aucune idée de la marche a suivre.

Merci d'avance

 

[job75]

Re : verouiller l'acces a un fichier a partir d'une certaine date

Bonjour,

La macro suivante introduit un mot de passe lors de la fermeture du fichier si la date du 31/12/08 est dépassée.

A l'ouverture suivante, le mot de passe sera demandé.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CDate(Date) > CDate("31/12/08") Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Name, Password:="[COLOR="Red"]VotreMotdepasse[/COLOR]"
Application.DisplayAlerts = True
End If
End Sub

Edit : ça ne correspond pas vraiment à ce que vous souhaitez car aucun mot de passe ne sera demandé à la 1ère ouverture le 01/01/09 (il n'y a pas encore de mot de passe). Mais le mot de passe ne peut pas s'introduire tout seul sur un fichier fermé...

A+

 

[olivemotard]

Re : verouiller l'acces a un fichier a partir d'une certaine date

Merci ,

Ca me convient, j ai besoin d'un verouillage dans le temps mais je ne suis pas a une utilisation pret.

Merci encore

 

[bignou77]

Re : verouiller l'acces a un fichier a partir d'une certaine date

Salut all,
vite fait car ma femme m'attend,
il y a aussi dans Workbook open/

If Date > #4/1/2008# Then #ton code pour le message# Else # ton code si la date n'est pas passé#

attention, c'est mois, jour et année.


Voila.
@+