Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonsoir Pierre,
ceci efface tout le code, module et formulaire du classeur actif.
'----------------------- Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object Dim VBComps As Object
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp
End Sub '-----------------------
Salutations!
"Pierre" a écrit dans le message de news: Bjr,
Existe-t-il des logiciel gratuits (sur Mac) capables de supprimer toutes les macros situées (invisibles ou pas) dans une feuille de calcul ?
Merci
Bonsoir Pierre,
ceci efface tout le code, module et formulaire du classeur actif.
'-----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
End Sub
'-----------------------
Salutations!
"Pierre" <traul@freespam.fr> a écrit dans le message de news: traul-BDE3FF.06572807112004@asterion.grec.isp.9tel.net...
Bjr,
Existe-t-il des logiciel gratuits (sur Mac) capables de supprimer toutes
les macros situées (invisibles ou pas) dans une feuille de calcul ?
ceci efface tout le code, module et formulaire du classeur actif.
'----------------------- Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object Dim VBComps As Object
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp
End Sub '-----------------------
Salutations!
"Pierre" a écrit dans le message de news: Bjr,
Existe-t-il des logiciel gratuits (sur Mac) capables de supprimer toutes les macros situées (invisibles ou pas) dans une feuille de calcul ?