Jei dirbate su daugybe makrokomandų ir norite, kad makrokomanda ištrintų visus esamus kodus iš dabartinės „Excel“ darbaknygės, šis straipsnis tikrai padės.
Jei norite ištrinti visas makrokomandas iš darbaknygės ar dokumento, galite naudoti toliau pateiktą makrokomandą.
Procedūrą galima naudoti ir „Excel“, ir „Word“ be jokio redagavimo.
Sub RemoveAllMacros (objDocument As Object) „ištrina visus„ VBProject “komponentus iš objDocument“ pašalina kodą iš integruotų komponentų, kurių negalima ištrinti „naudokite taip: RemoveAllMacros ActiveWorkbook“ „Excel“ “arba taip: reikia nuorodos į „Microsoft Visual Basic for Applications Extensibility“ biblioteką „Dim i As Long“, l „Long“, jei „objDocument“ yra nieko, tada Išeiti iš „Sub i“ = 0 On Error Resume Next i = objDocument.VBProject.VBComponents.Count On Error GoTo 0 If i <1 Tada „nėra„ VBComponents “arba„ VBProject MsgBox “„ VBProject in “& objDocument.Name & _“ yra apsaugotas arba jame nėra komponentų! .VBComponents.Skaičiuokite iki 1 žingsnio -1 dėl klaidos tęskite toliau. l = 1 Įjungus klaidos atnaujinimą Kitas l = .VBComponents (i) .CodeModule.CountOfLines .VBComponents (i) .CodeModule.DeleteLines 1, l 'aiškios linijos On Error GoTo 0 Next i End With End Sub