Vba pour effacer Vba ou bloquer l'ouverture du classeur

Bonjour,
Je voudrais savoir s'il existe un code qui permet d'effacer les lignes Vba pour que This Workbook soit vide ou alors un code permettant de bloquer l'ouverture du fichier.
Mais le plus dur, c'est que je voudrais ce code avec un déclenchement différé dans le temps, est ce possible??

Après quelques recherches, j'ai trouvé ce code qui marche à merveille pour effacer les macros, maintenant , je voudrais qu'il se déclenche à une date précise, si quelqu'un sait faire, merci...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub DeleteAllVBA() Dim VBComp As Variant Dim VBComps As Variant   Set VBComps = ActiveWorkbook.VBProject.VBComponents For Each VBComp In VBComps Select Case VBComp.Type Case 1 To 3 VBComps.Remove VBComp Case Else With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With End Select Next VBComp   End Sub

---

Salut,

Regarde du côté de

Code:

---

Application.OnTime(EarliestTime, Procedure, [LatestTime], [Schedule])

---

mais il faut que le classeur soit ouvert.

Et mets cela dans l'event Workbook_Open().

Si tu ne veux pas que le fichier soit ouvert, il faudra utiliser le planificateur de tâche.

A+

En fait je voulais mettre quelque chose du genre:

Code:

---

If Date > DateSerial(Year(2010), Month(5), Day(27)) and Time > TimeSerial(Hour(12), Minute(0), Second(0)) Then

---

Mais hélas, celà ne marche pas, et je vois pas du tout pourquoi.

Pour ceux qui sont intéressé, j'ai réussi à réaliser ce que je voulais, c'est à dire exécuter une macro à partir d'une date et heure donnée, la solution n'était pas loin:

Code:

---

1 2 3

Private Sub Workbook_Open() If Date >= DateSerial(2010, 9, 23) And Time >= TimeSerial(19, 0, 0) Then 'à l'ouverture, on n'a plus qu'à choisir la date est l'heure et à insérer la macro derrière pour quel s'exécute. Bien sur vous pouvez changer les symbôles.'

---

Merci à tous quand même et bonne continuation :ccool: