Effacer des macro par VBA Résolu/Fermé

Question

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

Polux31 · Answer

Bonjour,

Testé avec Excel 2007

yao.chris · Answer

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

Effacer des macro par VBA

2 réponses

Discussions similaires