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

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

Bonjour jozerebel,

voir fichier en pièce jointe
voici le code à+
Philippe

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é 😉

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

Merci à vous deux pour votre aide!

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