Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
remove password on VBA code | Excel Discussion (Misc queries) | |||
repeat code remove | Excel Worksheet Functions | |||
incorporate the remove #DIV/0! code into another formula to get bl | New Users to Excel | |||
code to remove rows containing a character string | Excel Discussion (Misc queries) | |||
Possible VB code to lookup and remove unwanted data | Excel Discussion (Misc queries) |