VBA to delete all Macros

[Steach91]

I have found a couple examples of how to do this on the web, but they have been 100% ineffective, or possibly I am not seeing where I need to change the code. Can anyone point me in the right direction?

The code i have is:

Please Login or Register  to view this content.

My goal is to ultimately have the program delete all the vba in the file, and then save the file....almost as a sort of copy protection.

[Mike k]

theres an easier way to do this.
rather than delete the macros and save the file.
just make a new workbook and save the file to the new workbook.
the new book won't have any macros to delete.


Private Sub SAVE_AS()

Application.DisplayAlerts = False

FILENAME = UCase(path)

Sheets("sheet2").Select
Set wb = Workbooks.Add
ThisWorkbook.Sheets("sheet2").Copy Before:=wb.Sheets(1)

For i = wb.Sheets.Count To 2 Step -1

wb.Sheets(i).Delete

Next i

wb.Sheets(1).Name = "give it a name"
wb.SaveAs (FILENAME)
Application.DisplayAlerts = True
wb.Close
Set wb = Nothing

End Sub

[Carim]

Hi,

VBE can be a solution ...to handle VBA code ...

http://www.cpearson.com/excel/vbe.htm

HTH
Carim