Ako radite s bezbroj makronaredbi i želite da makro izbriše sve postojeće kodove iz trenutne radne knjige programa Excel, sljedeći članak će vam zasigurno pomoći.
Ako želite izbrisati sve makronaredbe iz radne knjige ili dokumenta, možete upotrijebiti donju makronaredbu.
Postupak se može koristiti i u Excelu i u Wordu bez ikakvog uređivanja.
Sub RemoveAllMacros (objDocument As Object) 'briše sve komponente VBProject iz objDocument' uklanja kôd iz ugrađenih komponenti koje se ne mogu izbrisati 'koristite ovako: RemoveAllMacros ActiveWorkbook' u Excelu 'ili ovako: RemoveAllMacros ActiveWorkbookDocument' u Wordu ' zahtijeva referencu na "Microsoft Visual Basic za knjižnice proširenja aplikacija Dim i As Long, l As Long Ako objDocument is Nothing then Exit Sub i = 0 On Error Resume Next i = objDocument.VBProject.VBComponents.Count On Error GoTo 0 If i <1 Zatim 'nema VBCkomponenti ili zaštićenog VBProject MsgBox "VBProject u" & objDocument.Name & _ "je zaštićen ili nema komponente!", _ VbInformation, "Remove All Macros" Exit Sub End If With objDocument.VBProject For i = .VBComponents.Count To 1 Step -1 On Error Resume Next .VBComponents.Uklonite .VBComponents (i) 'obrišite komponentu On Error Idi na 0 Next i End With With objDocument.VBProject Za i = .VBComponents.Count to 1 Step -1 l = 1 Uključeno Nastavi grešku Sljedeće l = .VBComponents (i) .CodeModule.CountOfLines .VBComponents (i) .CodeModule.DeleteLines 1, l 'clear lines On Error GoTo 0 Next i End With End Sub