View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Steve[_86_] Steve[_86_] is offline
external usenet poster
 
Posts: 3
Default Remove All Macros


The code i found was the one as follows, im a bit of a VBA novice as
you probably guessed!

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





Tom Ogilvy wrote:

does the code to remove the macros also remove the modules? If not, you will
get that prompt. (for general modules). for sheet modules you will need to
make sure they are completely empty - no spaces left or anything like that.

--
Regards,
Tom Ogilvy


"Steve" wrote:

Hi All,

I have an excel spreadsheet that runs a macro on opening and then
within the workbook there are various buttons running further macros
(i.e. to delete rows etc). After pressing the final button, i want all
evidence of macros to be removed from the sheet. When the sheet is
saved, closed and then reopened, i dont want the macro enable/disable
to appear. Is this possible??

I have found VBA code to remove all macro code, and when looking in
Tools\macros, it appears they have all gone, but after saving, closing
and re-opening, i still get the enable/disable popup, suggesting i
still have macros within the sheet.

Any quick responses will be greatly appreciated, on a tight deadline!!

Many thanks