[Excel] Rendre un fichier inutilisable

Bonjour,

J'aurais voulu savoir comment rendre un fichier inutilisable au bout d'un certain temps. En fait j'aurais besoin que dans un mois, on ne puisse plus utiliser un fichier excel (la feuille peut s'afficher mais il faudrait que les macros assignés aux boutons sur la feuille ne soient plus utilisables). Je pensais passer par l'horloge systeme mais je ne sais pas trop comment l'utiliser.

Merci d'avance

Vball

Code:

---

1 2 3

If date > DateChoisie then Call SupprimerLesModules Endif

---

Code:

---

1 2 3 4 5 6 7

Sub SupprimerLesModules() NomModule = "MaFormAmoi" NomFichier = "Classeur1" With Workbooks(NomFichier) .VBComponents.Remove .VBComponents(NomModule) End With End Sub

---

Tu dis

NB - Je ne veux pas le méler à cette histoire s'il n'y est pour rien mais je crois bien que c'est un code inspiré d'un code donné par SilkyRoad :lol:

Merci ouskel'nor, j'avais pas pensé à supprimer les modules... c'est assez "classe" comme methode. On peut meme sauvegarder le fichier juste apres avoir supprimer les modules. :mouarf: