Kui töötate lugematu arvu makrodega ja soovite, et makro kustutaks praegusest Exceli töövihikust kõik olemasolevad koodid, siis aitab kindlasti järgmine artikkel.
Kui soovite töövihikust või dokumendist kõik makrod kustutada, saate kasutada järgmist makro.
Protseduuri saab kasutada nii Excelis kui ka Wordis ilma muudatusteta.
Sub RemoveAllMacros (objDocument as Object) "kustutab objDocumentist kõik VBProjecti komponendid" eemaldab koodi sisseehitatud komponentidest, mida ei saa kustutada. nõuab viidet „Microsoft Visual Basic for Applications laiendatavuse teekile Dim i nii kaua, l nii kaua, kui objDocument pole midagi, siis väljuge alam i = 0 tõrkest Jätka järgmine i = objDocument.VBProject.VBComponents.Count On Error GoTo 0 If i <1 Siis pole VBComponents või kaitstud VBProject MsgBox "VBProject dokumendis" & objDocument.Name & _ "on kaitstud või sellel pole komponente!", _ VbInformation, "Remove All Macros" Exit Sub end If If With objDocument.VBProject For i = .VBComponents.Count to 1 Step -1 On Error Resume Next .VBComponents.Remove .VBComponents (i) 'delete the komponent On Error GoTo 0 Next i End With With objDocument.VBProject For i = .VBComponents.Count to 1 Step -1 l = 1 Tõrke korral Jätka Järgmine l = .VBComponents (i) .CodeModule.CountOfLines .VBComponents (i) .CodeModule.DeleteLines 1, l 'clear lines On Error GoTo 0 Next i End With End Sub