je souhaiterais trouver le code VBA qui permette de supprimer la totalité
d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel
: j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000
mais pas avec les versions ultérieures :
http://www.cpearson.com/excel/vbe.htm
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
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille, supprime les modules de classe, les modules standards et les formulaires du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------ 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!
"vince" a écrit dans le message de news: Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel : j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000 mais pas avec les versions ultérieures : http://www.cpearson.com/excel/vbe.htm
Merci d'avance
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille,
supprime les modules de classe, les modules standards et les formulaires
du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne
de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents
Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------
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!
"vince" <vince@discussions.microsoft.com> a écrit dans le message de news: 21430240-309D-4D47-B382-6686454628F5@microsoft.com...
Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité
d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel
: j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000
mais pas avec les versions ultérieures :
http://www.cpearson.com/excel/vbe.htm
Cette procédure supprime toute trace de code dans les modules feuille, supprime les modules de classe, les modules standards et les formulaires du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------ 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!
"vince" a écrit dans le message de news: Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel : j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000 mais pas avec les versions ultérieures : http://www.cpearson.com/excel/vbe.htm
Merci d'avance
vince
Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille, supprime les modules de classe, les modules standards et les formulaires du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------ 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!
"vince" a écrit dans le message de news: Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel : j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000 mais pas avec les versions ultérieures : http://www.cpearson.com/excel/vbe.htm
Merci d'avance
Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour
Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille,
supprime les modules de classe, les modules standards et les formulaires
du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne
de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents
Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------
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!
"vince" <vince@discussions.microsoft.com> a écrit dans le message de news: 21430240-309D-4D47-B382-6686454628F5@microsoft.com...
Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité
d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel
: j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000
mais pas avec les versions ultérieures :
http://www.cpearson.com/excel/vbe.htm
Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille, supprime les modules de classe, les modules standards et les formulaires du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------ 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!
"vince" a écrit dans le message de news: Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel : j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000 mais pas avec les versions ultérieures : http://www.cpearson.com/excel/vbe.htm
Merci d'avance
michdenis
Bonjour Vince,
Il n'y a aucune raison que la procédure transmise ne fonctionne sous excel 2002 ou 2003. Cependant avec des 2 versions, à partir de la barre de menus de la feuille de calcul / outils / macro / sécurité / Onglet : éditeurs approuvés , cocher les 2 cases à cocher dans le bas de la fenêtre et tes macros vont de nouveau fonctionner rondement.
Salutations!
"vince" a écrit dans le message de news: Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille, supprime les modules de classe, les modules standards et les formulaires du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------ 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!
"vince" a écrit dans le message de news: Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel : j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000 mais pas avec les versions ultérieures : http://www.cpearson.com/excel/vbe.htm
Merci d'avance
Bonjour Vince,
Il n'y a aucune raison que la procédure transmise ne fonctionne sous excel 2002 ou 2003.
Cependant avec des 2 versions, à partir de la barre de menus de la feuille de calcul /
outils / macro / sécurité / Onglet : éditeurs approuvés , cocher les 2 cases à cocher
dans le bas de la fenêtre et tes macros vont de nouveau fonctionner rondement.
Salutations!
"vince" <vince@discussions.microsoft.com> a écrit dans le message de news: 2A414619-26B5-43A2-8278-55442F288072@microsoft.com...
Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour
Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille,
supprime les modules de classe, les modules standards et les formulaires
du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne
de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents
Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------
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!
"vince" <vince@discussions.microsoft.com> a écrit dans le message de news: 21430240-309D-4D47-B382-6686454628F5@microsoft.com...
Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité
d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel
: j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000
mais pas avec les versions ultérieures :
http://www.cpearson.com/excel/vbe.htm
Il n'y a aucune raison que la procédure transmise ne fonctionne sous excel 2002 ou 2003. Cependant avec des 2 versions, à partir de la barre de menus de la feuille de calcul / outils / macro / sécurité / Onglet : éditeurs approuvés , cocher les 2 cases à cocher dans le bas de la fenêtre et tes macros vont de nouveau fonctionner rondement.
Salutations!
"vince" a écrit dans le message de news: Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille, supprime les modules de classe, les modules standards et les formulaires du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------ 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!
"vince" a écrit dans le message de news: Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel : j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000 mais pas avec les versions ultérieures : http://www.cpearson.com/excel/vbe.htm
Merci d'avance
vince
Bonjour,
Merci beaucoup, cela marche super !
Très bonne journée
Bonjour Vince,
Il n'y a aucune raison que la procédure transmise ne fonctionne sous excel 2002 ou 2003. Cependant avec des 2 versions, à partir de la barre de menus de la feuille de calcul / outils / macro / sécurité / Onglet : éditeurs approuvés , cocher les 2 cases à cocher dans le bas de la fenêtre et tes macros vont de nouveau fonctionner rondement.
Salutations!
"vince" a écrit dans le message de news: Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille, supprime les modules de classe, les modules standards et les formulaires du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------ 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!
"vince" a écrit dans le message de news: Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel : j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000 mais pas avec les versions ultérieures : http://www.cpearson.com/excel/vbe.htm
Merci d'avance
Bonjour,
Merci beaucoup, cela marche super !
Très bonne journée
Bonjour Vince,
Il n'y a aucune raison que la procédure transmise ne fonctionne sous excel 2002 ou 2003.
Cependant avec des 2 versions, à partir de la barre de menus de la feuille de calcul /
outils / macro / sécurité / Onglet : éditeurs approuvés , cocher les 2 cases à cocher
dans le bas de la fenêtre et tes macros vont de nouveau fonctionner rondement.
Salutations!
"vince" <vince@discussions.microsoft.com> a écrit dans le message de news: 2A414619-26B5-43A2-8278-55442F288072@microsoft.com...
Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour
Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille,
supprime les modules de classe, les modules standards et les formulaires
du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne
de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents
Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------
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!
"vince" <vince@discussions.microsoft.com> a écrit dans le message de news: 21430240-309D-4D47-B382-6686454628F5@microsoft.com...
Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité
d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel
: j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000
mais pas avec les versions ultérieures :
http://www.cpearson.com/excel/vbe.htm
Il n'y a aucune raison que la procédure transmise ne fonctionne sous excel 2002 ou 2003. Cependant avec des 2 versions, à partir de la barre de menus de la feuille de calcul / outils / macro / sécurité / Onglet : éditeurs approuvés , cocher les 2 cases à cocher dans le bas de la fenêtre et tes macros vont de nouveau fonctionner rondement.
Salutations!
"vince" a écrit dans le message de news: Bonjour et merci pour l'info, mais cela ne fonctionne pas sous XP (ok pour Excel 2000). Peut être y a-t-il une autre astuce pour XP ?
Merci encore
Bonjour Vince,
Cette procédure supprime toute trace de code dans les modules feuille, supprime les modules de classe, les modules standards et les formulaires du classeur actif au moment de lancer la procédure.
Pour un classeur ouvert déterminé d'avance, tu modifies cette ligne de code : Set VBComps = ActiveWorkbook.VBProject.VBComponents Par Set VBComps = Workbooks("NomDuClasseur").VBProject.VBComponents
'------------------------------ 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!
"vince" a écrit dans le message de news: Bonjour,
je souhaiterais trouver le code VBA qui permette de supprimer la totalité d'un code VBA (modules + code sur feuille et onglets,...) d'un fichier excel : j'ai trouvé et utilisé la ressource suivante qui fonctionne avec Excel 2000 mais pas avec les versions ultérieures : http://www.cpearson.com/excel/vbe.htm