Remove All code

[thombar]

Bonjour,

J'utilise ceci pour effacer tout le code vba d'un classeur :
(Je l'ai pioché là : http://www.garyradley.com/vba/tut11.htm)

Sub removeAllCode()
Dim awi 'activeWorkbookItem(index)
Dim awcl As Integer 'activeWorkbook Component CountOfLines
Dim count As Integer 'how many potential code modules
Dim i As Integer 'loop counter
On Error Resume Next
count = ActiveWorkbook.VBProject.VBComponents.count
For i = 1 To count
Set awi = ActiveWorkbook.VBProject.VBComponents.Item(i)
awcl = awi.CodeModule.CountOfLines
awi.CodeModule.DeleteLines 1, awcl
Next i
Set awi = Nothing ' Release the object
End Sub

Ca fonctionne plutôt pas mal, mais curieusement, lorsque je réouvre le classeur en question, il me demande toujours si je veux activer les macros..., alors qu'il n'y en a même plus la queue d'un dedans.... étrange, non ?

Merci de vos conseils.

 

[@+Thierry]

Salut Thombar, le Forum

Je te conseille d'aller dans ce fil :

Lien supprimé

Et de rechercher dans cette page "Atila" (c'est vrai lol)

Bon Aprèm
@+Thierry