Protéger un classeur si ouverture après une date donnée

[jozerebel]

Bonjour à tous!

Je souhaite empêcher les utilisateurs de modifier un classeur s'ils l'ouvrent après une date définie (lecture seule et msgbox "Vous ne pourrez pas modifier le classeur, délai imparti terminé").

Une idée ?

D'avance merci.

 

[phlaurent55]

Re : Protéger un classeur si ouverture après une date donnée

Bonjour jozerebel,

voir fichier en pièce jointe
voici le code

Private Sub Workbook_Open()
If Now > "12/10/2010" Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto"
ActiveWorkbook.Protect Structure:=True, Windows:=True, Password:="toto"
MsgBox ("Vous avez dépassé la date-limite  le classeur est maintenant protégé")
End If
End Sub

à+
Philippe

 

[CBernardT]

Re : Protéger un classeur si ouverture après une date donnée

Bonjour jozerebel, phlaurent55,

Une variante à la solution de phlaurent55 :

Une simple protection des feuilles.

Private Sub Workbook_Open()
If Date > DateSerial(2010, 10, 12) Then
For Each ws In Worksheets
ws.Protect Password:="***"
Next ws
MsgBox "Vous ne pouvez plus modifier ce classeur, le délai imparti est écoulé !"
End If
End Sub

Il va de soi que le VBA Project doit être lui aussi protégé 😉

 

[jozerebel]

Re : Protéger un classeur si ouverture après une date donnée

Merci à vous deux pour votre aide!

 

[phlaurent55]

Re : Protéger un classeur si ouverture après une date donnée

re, Bonjour Bernard,

une autre manière de procéder ( à l'opposé de ce que j'avais fait avant)

le classeur est protégé à la fermeture et s'il est ouvert
avant le 13/10/2010, il de déprotègera
après le 13/10/2010, il restera protégé

mais il en faut pas perdre de vue qu'il n'y a aucune protection valable et que pour quelqu'un qui s'y connait un peu, les protections seront "dynamitées" en moins d'une seconde .................sans utiliser de l'Acyd

à+
Philippe