Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 179
  • Last Modified:

Excel --- Deleting a Macro?

Hi,

How can I delete all macros on a workbook/worksheet using VBA?

Thanks.
0
SLE
Asked:
SLE
1 Solution
 
MTroutwineCommented:
I don't know of a way to delete the macros' themselves but you can delete the module that they reside in:

Sub DeleteModule()
   
    ' Local Variable Declarations:
    Dim objModule As Object
    Dim wbkBook As Workbook
   
    ' **** THIS LINE IS OPTIONAL IF THE SPREADSHEET IS
    ' **** ALREADY OPEN YOU DON'T NEED IT!
    'Workbooks.Open FileName:="C:\Book1.xls"
       
    ' Instantiate the objects:
    Set wbkBook = ActiveWorkbook
    Set objModule = wbkBook.Excel4IntlMacroSheets
   
    ' Delete the module:
    objModule.Remove VBComponent:=objModule.Item("Module2")

End Sub

Hope this helps!
:>)
0
 
tureCommented:
SLE,

This procedure deletes all VBA code in the active workbook.

Sub DeleteAllVBACode()
  'For this to work, you must set a reference to the
  'MS Visual Basic for Applications Extensibility library
 
  Dim vbc As VBComponent
  Dim cm As CodeModule
  For Each vbc In ActiveWorkbook.VBProject.VBComponents
    Set cm = vbc.CodeModule
    cm.DeleteLines 1, cm.CountOfLines
  Next vbc
End Sub

Ture Magnusson
Karlstad, Sweden
0
 
SLEAuthor Commented:
Thanks also to ture...
0

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now