Une macro qui supprime les macros ?

Version imprimable

Salut à toutes et à tous :)

Je ne suis pas une lumière en VB alors je fais appelle à la commu :mrgreen:

Je cherche à insérer dans excel une macro qui supprimerait toutes les macros du classeur excel.

J'ai déjà fait des recherches et j'ai finalement obtenu ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim VBComponent As Object For Each VBComponent In ActiveWorkbook.VBProject.VBComponents Select Case VBComp.Type Case 1 To 3 ActiveWorkbook.VBProject.VBComponents.Remove VBComponent Case Else With VBComponent.CodeModule .DeleteLines 1, .CountofLines End With End Select Next VBComponent
Seulement il semblerait que ça ne fonctionne pas... une idée ? :aie:

Merci d'avance à tous ceux qui répondront :)

15/06/2008, 10h26
Le Pierre

bonjour

modifie le code de

Code:

Select Case VBComp.Type

en

Code:

Select Case VBComponent .Type

à plus

Bonjour tlm,

Tu peux essayer la procèdure ci-dessous qui supprime toutes les procédures, qu'elles se situent dans un module, dans une feuille ou dans thisworkbook.
Elle se supprime elle même aussi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub del_macro()
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

16/06/2008, 10h03
GodOfTrolls

Merci les gars je vais tester ça dès que je peux, je vous tiens au courant :)