Sayısız makro ile çalışıyorsanız ve bir makronun mevcut excel çalışma kitabındaki tüm mevcut kodları silmesini istiyorsanız, aşağıdaki makale kesinlikle yardımcı olacaktır.
Bir çalışma kitabından veya belgeden tüm makroları silmek istediğinizde aşağıdaki makroyu kullanabilirsiniz.
Prosedür, herhangi bir düzenleme yapılmadan hem Excel'de hem de Word'de kullanılabilir.
Sub RemoveAllMacros(objDocument As Object) ' tüm VBProject bileşenlerini objDocument'tan siler ' kodu silinemeyen yerleşik bileşenlerden kaldırır ' şu şekilde kullanın: RemoveAllMacros ActiveWorkbook ' Excel'de ' veya bunun gibi: RemoveAllMacros ActiveWorkbookDocument ' Word'de ' ' Microsoft Visual Basic for Applications Genişletilebilirlik kitaplığına bir başvuru gerektirir ' Dim i As Long, l As Long ObjDocument Is Nothing O zaman Exit Sub i = 0 Hatada Devam Et Sonraki i = objDocument.VBProject.VBComponents.Count On Error 0 If i < 1 O zaman ' VBComponents veya korumalı VBProject MsgBox "" & objDocument.Name & _ " içindeki VBProject korumalı veya hiçbir bileşeni yok!", _ vbInformation, "Tüm Makroları Kaldır" Exit Sub End If With objDocument.VBProject For i = .VBComponents.Count To 1 Adım -1 Hatada Devam Et Sonraki .VBComponents.Remove .VBComponents(i) ' bileşeni sil Hatada 0 Git Sonraki i Şununla Bitir objDocument.VBProject For i = .VBComponents.Count To 1 Adım -1 l = 1 Hata Devamında Sonraki l = .VBComponents(i).CodeModule.CountOfLines .VBComponents(i).CodeModule.DeleteLines 1, l ' satırları temizle Hatada Git 0 Sonraki i End With End Sub