Supprimer vba

[glm]

Bonjour a tous,
je cherche soit à supprimer le vba d'une feuille, soit à le rendre inactif
Si quelqu'un à une idée
Merci
Bon WE
A+

 

[lapix]

Re : Supprimer vba

bonjour

ALT+F11

Pour chaque procedure de chaque module tu rajoutes Exit sub ou Exit Function juste apres sub xxxx() ou Function xxx()

ou tu supprimes tous les modules et tu effaces le code dans les feuilles

 

[MichelXld]

Re : Supprimer vba

bonjour Glm, bonjour Lapix

une autre possibilité

Sub test()
    'Nécéssite d'activer la référence
    '"Visual basic For Application Extensibility 5.3"
    '
    Dim Wb As Workbook
    
    Set Wb = Workbooks("Classeur1.xls")
    SupprimerMacroPrecise Wb, "Module3", "Macro1"
    'Un autre exemple pour supprimer un procédure évènementielle
    'SupprimerMacroPrecise Wb, "ThisWorkbook", "Workbook_Open"
End Sub
 
Sub SupprimerMacroPrecise(Wb As Workbook, Mdl As String, NomMacro As String)
    Dim Debut As Integer, Lignes As Integer
    
    With Wb.VBProject.VBComponents(Mdl).CodeModule
        Debut = .ProcStartLine(NomMacro, 0)
        Lignes = .ProcCountLines(NomMacro, 0)
        .DeleteLines Debut, Lignes
    End With
End Sub

Bonne journée
MichelXld

 

[glm]

Re : Supprimer vba

Merci à tous les deux,
je penche plus pour la deuxième solution car il faut que cela se fasse tout seul
merci encore
A+