Jos käytät lukemattomia makroja ja haluat makron poistavan kaikki nykyiset Excel -työkirjan koodit, seuraava artikkeli auttaa varmasti.
Kun haluat poistaa kaikki makrot työkirjasta tai asiakirjasta, voit käyttää alla olevaa makroa.
Menettelyä voidaan käyttää sekä Excelissä että Wordissa ilman muokkausta.
Sub RemoveAllMacros (objDocument As Object) poistaa kaikki VBProject-komponentit objDocumentista edellyttää viittausta 'Microsoft Visual Basic for Applications Extensibility -kirjastoon Dim i Niin pitkä, l Niin kauan Jos objDocument ei ole mitään sitten Poistu Sub i = 0 Virhe Jatka Seuraava i = objDocument.VBProject.VBComponents.Count On Error GoTo 0 If i <1 Sitten 'ei VBComponents tai suojattu VBProject MsgBox "VBProject in" & objDocument.Name & _ "on suojattu tai siinä ei ole osia!", _ VbInformation, "Remove All Macros" Poistu alipäästä, jos on objDocument.VBProject For i = .VBComponents.Count to 1 Step -1 On Error Jatka seuraavaksi .VBComponents.Remove .VBComponents (i) 'poista komponentti On Error GoTo 0 Next i End With With objDocument.VBProject For i = .VBComponents.Count to 1 Step -1 l = 1 Virhe Jatka Seuraava l = .VBComponents (i) .CodeModule.CountOfLines .VBComponents (i) .CodeModule.DeleteLines 1, l 'clear lines On Error GoTo 0 Next i End With End Sub