Remove VBA code

  • Thread starter Thread starter Michi
  • Start date Start date
M

Michi

Hi!
I have removed the VBA code from the workbook "Test.xls", saved and
closed. When I reopened the workbook the message "Workbook countains
macros" popped up.
I saved the workbook and reopened it again and to my surprise no macro
warning occurred. Can anyone explain that to me?

For vba code deleting I used the macro of www.cpearson.com. See the
vba code below:

Public Sub test()
ThisWorkbook.SaveAs ("Test1")
DeleteAllVBA
ThisWorkbook.Save
End Sub
Sub DeleteAllVBA()

Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents

Set VBComps = ActiveWorkbook.VBProject.VBComponents

For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp

End Sub

Thanks for your help
Michi
 
You must also "remove" the macro module> goto vbe by alt f11>right click on
the module>remove>NO
 
I guess you have not tried out the code I provided, because the modules
are also removed automatically.

Michi
 
Back
Top