Ако радите са безброј макроа и желите да макро обрише све постојеће кодове из тренутне Екцел радне свеске, следећи чланак ће вам сигурно помоћи.
Када желите да избришете све макрое из радне свеске или документа, можете користити доњи макро.
Поступак се може користити и у Екцелу и у Ворду без икаквог уређивања.
Суб РемовеАллМацрос (објДоцумент Ас Објецт) 'брише све компоненте ВБПројецт из објДоцумент' уклања код из уграђених компоненти које се не могу избрисати 'користите овако: РемовеАллМацрос АцтивеВоркбоок' у Екцелу 'или овако: РемовеАллМацрос АцтивеВоркбоокДоцумент' у Ворд-у ' захтева референцу на „Мицрософт Висуал Басиц фор Апплицатионс Ектенсибилити либрари Дим и Ас Лонг, л Ас Лонг Ако објДоцумент ис Нотхинг тхен Екит Суб и = 0 Он Еррор Ресуме Нект и = објДоцумент.ВБПројецт.ВБЦомпонентс.Цоунт Он Еррор ГоТо 0 Иф и <1 Онда 'нема ВБЦкомпоненти или заштићеног ВБПројецт МсгБок "ВБПројецт у" & објДоцумент.Наме & _ "је заштићен или нема компоненте!", _ ВбИнформатион, "Ремове Алл Мацрос" Екит Суб Енд Иф Витх објДоцумент.ВБПројецт Фор и = .ВБЦомпонентс.Цоунт То 1 Степ -1 Он Еррор Ресуме Нект .ВБЦомпонентс.Ремове .ВБЦомпонентс (и) 'обришите компоненту Он Еррор ГоТо 0 Нект и Енд Витх Витх објДоцумент.ВБПројецт Фор и = .ВБЦомпонентс.Цоунт То 1 Степ -1 л = 1 Укључено Настави грешку Следеће л = .ВБЦомпонентс (и) .ЦодеМодуле.ЦоунтОфЛинес .ВБЦомпонентс (и) .ЦодеМодуле.ДелетеЛинес 1, л 'цлеар линес Он Еррор ГоТо 0 Нект и Енд Витх Енд Суб