Je souhaite en vba demander à excel que lorsque j'ouvre le fichier toto.xls,
qu'il supprime toutes les macros qui se trouve dans la feuil mimi, voir même
pourquoi pas supprimer toutes les macros du fichier toto.xls
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
François
Bonjour,
Michdenis, à une demande similaire, m'avait indiqué le code suivant pour tout supprimer :
MsgBox ("Pour que toutes les programmations devenues inutiles soient définitivement supprimées," & Chr(13) & "il faudra ne pas oublier d'enregistrer les modifications du classeur.")
Dim VBComp, 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
Mais ce code ne fonctionne que s'il n'y a pas de mot de passe pour le VBA ...
François
"Manu" a écrit dans le message de news:
Bonsoir,
Je souhaite en vba demander à excel que lorsque j'ouvre le fichier toto.xls, qu'il supprime toutes les macros qui se trouve dans la feuil mimi, voir même pourquoi pas supprimer toutes les macros du fichier toto.xls
Merci pour votre aide
Manu
Bonjour,
Michdenis, à une demande similaire, m'avait indiqué le code suivant pour
tout supprimer :
MsgBox ("Pour que toutes les programmations devenues inutiles soient
définitivement supprimées," & Chr(13) & "il faudra ne pas oublier
d'enregistrer les modifications du classeur.")
Dim VBComp, 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
Mais ce code ne fonctionne que s'il n'y a pas de mot de passe pour le VBA
...
François
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
expQWfkfJHA.1252@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Je souhaite en vba demander à excel que lorsque j'ouvre le fichier
toto.xls, qu'il supprime toutes les macros qui se trouve dans la feuil
mimi, voir même pourquoi pas supprimer toutes les macros du fichier
toto.xls
Michdenis, à une demande similaire, m'avait indiqué le code suivant pour tout supprimer :
MsgBox ("Pour que toutes les programmations devenues inutiles soient définitivement supprimées," & Chr(13) & "il faudra ne pas oublier d'enregistrer les modifications du classeur.")
Dim VBComp, 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
Mais ce code ne fonctionne que s'il n'y a pas de mot de passe pour le VBA ...
François
"Manu" a écrit dans le message de news:
Bonsoir,
Je souhaite en vba demander à excel que lorsque j'ouvre le fichier toto.xls, qu'il supprime toutes les macros qui se trouve dans la feuil mimi, voir même pourquoi pas supprimer toutes les macros du fichier toto.xls