Kazalo
Če delate z neštetimi makri in želite, da makro izbriše vse obstoječe kode iz trenutnega Excelovega delovnega zvezka, vam bo naslednji članek zagotovo v pomoč.
Če želite izbrisati vse makre iz delovnega zvezka ali dokumenta, lahko uporabite spodnji makro.
Postopek je mogoče uporabiti tako v Excelu kot v Wordu brez kakršnega koli urejanja.
Sub RemoveAllMacros (objDocument As Object) 'izbriše vse komponente VBProject iz objDocument' odstrani kodo iz vgrajenih komponent, ki jih ni mogoče izbrisati 'uporabite tako: RemoveAllMacros ActiveWorkbook' v Excelu 'ali tako: RemoveAllMacros ActiveWorkbookDocument' v Wordu ' zahteva sklic na knjižnico razširitve Microsoft Visual Basic za aplikacije Dim i As Long, l As Long, če objDocument ni nič, potem zapustite Sub i = 0 On Error Resume Next i = objDocument.VBProject.VBComponents.Count On Error GoTo 0 Če i <1 Potem 'brez komponent VBC ali zaščitenega sporočila VBProject MsgBox "VBProject v" & objDocument.Name & _ "je zaščiten ali nima komponent!", _ VbInformation, "Odstrani vse makre" Zapri Sub End Če je z objDocument.VBProject Za i = .VBComponents.Count To 1 Step -1 On Error Nadaljuj Next .VBComponents.Remove. l = 1 Ob nadaljevanju napake Naprej l = .VBComponents (i) .CodeModule.CountOfLines .VBComponents (i) .CodeModule.DeleteLines 1, l 'počisti vrstice Napaka Pojdi na 0 Naprej i Končaj z End Sub
