deleting code by macro

J

jriehl

Hi there,

is it possible to delete all of a workbooks code automatically by means of a
macro?

Lots of thanks

Jürgen
 
R

Rob van Gelder

Later versions of Excel have Macro Security which prevent this sort of
activity without having been trusted.

Sub test()
Dim vbc As VBComponent

For Each vbc In ActiveWorkbook.VBProject.VBComponents
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines
Next
End Sub
 
Top