Removing VBA-code in THISWORKBOOK

[JPDO]

Dear All,

I have a problem to create a macro that should remove the VBA-code in THISWORKBOOK.
I already tried the information on the site of cpearson.com that handles about "Programming the Visual Basic Editor", but i can not figure out how to get it working on the object THISWORKBOOK.
I also did a search on this forum, but i did not found anything on this.
Can someone help me in this matter ?

Thanks in advance

 

[hiep hieper]

I haven't solved this problem yet. It seems that it must be possible to delete vba code from a module like "ThisWorkbook" but I haven't sorted it out. When I do I will post the solution.

 

[yakovleff]

Try that Hans W. Herber suggests:

Sub RemoveAllVBAElements()
Dim vbc As Object
Dim wks As Worksheet
Dim dlg As DialogSheet

With ActiveWorkbook.VBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case 1, 2, 3
.VBComponents.Remove vbc
Case 100
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines
End Select
Next vbc
End With

End Sub

I had to make a new sheet to send just data containing on it to another person without any processing "know-hows". This method worked Perfectly in Excel 2007!