Effacer des macro par VBA

Résolu
yao.chris Messages postés 95 Statut Membre -  
yao.chris Messages postés 95 Statut Membre -
Bonjour,

connaissez vous le moyen de créer une macro permettent d'effacer des modules, des userforms, code de thisworkbook et code feuille ?
J'ai essayé les codes trouvés sur le net mais aucun ne fonctionnent.

Merci pour votre aide.
yao
A voir également:

2 réponses

Polux31 Messages postés 7219 Statut Membre 1 204
 
0
yao.chris Messages postés 95 Statut Membre 2
 
Bonjour Polux,

J'ai essayé mais le reçois l'erreur 1004.

J'ai entré le code ci-dessous mais le débogage me renvoi à la ligne (With ActiveWorkbook.VBProject).

Je ne comprend pas !!!

Sub Supprimer_toutes_macros()
Dim VBC As Object

With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else
.VBComponents.Remove VBC
End If
Next VBC
End With

End Sub

Merci pour votre aide.
yao
0