Ja strādājat ar neskaitāmiem makro un vēlaties, lai makro izdzēstu visus esošos kodus no pašreizējās Excel darbgrāmatas, tad šis raksts noteikti palīdzēs.
Ja vēlaties dzēst visus makro no darbgrāmatas vai dokumenta, varat izmantot tālāk norādīto makro.
Procedūru var izmantot gan programmā Excel, gan programmā Word bez rediģēšanas.
Sub RemoveAllMacros (objDocument As Object) "dzēš visus VBProject komponentus no objDocument" noņem kodu no iebūvētajiem komponentiem, kurus nevar izdzēst "izmantojiet šādi: RemoveAllMacros ActiveWorkbook" programmā Excel "vai šādi: RemoveAllMacros ActiveWorkbookDocument" programmā Word " nepieciešama atsauce uz Microsoft Visual Basic for Applications paplašināmības bibliotēku Dim i tik ilgi, l tik ilgi, ja objDocument nav nekas, tad iziet Sub i = 0 On Error Resume Next i = objDocument.VBProject.VBComponents.Count On Error GoTo 0 If i <1 Tad 'nav VBComponents vai aizsargāta VBProject MsgBox "VBProject in" & objDocument.Name & _ "ir aizsargāts vai tajā nav komponentu!", _ VbInformation, "Remove All Macros" Exit Sub End if If With objDocument.VBProject For i = .VBComponents.Count to 1 Step -1 On Error Atsākt nākamo .VBComponents.Remove .VBComponents (i) 'dzēst komponentu On Error GoTo 0 Next i End With With objDocument.VBProject For i = .VBComponents.Skaitīt līdz 1. darbībai -1 l = 1 Ieslēgt kļūdu Nākamais l = .VBComponents (i) .CodeModule.CountOfLines .VBComponents (i) .CodeModule.DeleteLines 1, l 'notīriet līnijas On Error GoTo 0 Next i End With End Sub