Supprimer une macro par du VBA

[Christine]

Bonjour,

Me voilà de nouveau avec un problème de macro...

J'ai une application, avec des macros partout, et j'en ai qui sont "liées" aux feuilles.
Ainsi, lorsque je veux créer automatiquement (par des macros) un nouveaux classeur et y recopier les feuilles de l'application d'origine, les macros qui sont liées aux feuilles sont copiées dans ce nouveaux classeur.
Par conséquent, quand j'ouvre ce nouveaux classeur il me demande si je veux activer les macros alors que je n'en veux pas.
Est ce que vous savez comment je peux supprimer le code VBA qui est attaché à ces feuilles.

Merci d'avance, et cette fois je tacherai de tester rapidement vos propositions et de vous en faire un retour encore plus rapide.

Christine

 

[@+Thierry]

Re Bonsoir Christine (Plus de lapsus et de confusion !! promis !!)


Voici donc un code qui va détruire les Private macros de la Feuil1 :
Sub KillPrivateSubSheet()
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets("Feuil1").CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub

Bonne Soirée
@+Thierry

 

[@+Thierry]

Re Re Christine et les "Couche-Tard" du forum

J'ai trouvé un truc de plus... Pour faire plus propre en fermant aussi le module en partant...

Sub KillPrivateSubSheet()
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets("Feuil1").CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub

La feuille retrouve sa virginité absolue de troute trace de VBA.

Bonne Nuit au Journée
@+Thierry

 

[Antoine]

Super ! J'avais le même problème que Christine ... Thierry, t'es un As.

heu, au fait, pour mon problème d'init de combobox en masse .... t'as le source de ton exemple... Merci