Добрый день. Прошу подсказать код макроса удаляющий все макросы в книге и самого себя!
[vba]Код
Sub Delete_VBA()
Dim oVB As Object
For Each oVB In ActiveWorkbook.VBProject.VBComponents
On Error Resume Next
With oVB
If .Type = 1 Or .Type = 2 Or .Type = 3 Then .Collection.Remove oVB 'модули, классы, формы
If .Type = 100 Then .CodeModule.DeleteLines 1, .CodeModule.CountOfLines 'книга, листы
End With
Next
Set oVB = Nothing
End Sub
[/vba]
Тема такая была, но макрос нерабочий. предложение пересохранить в .xlsx не подходит. Нужно просто удаление макроса. Якобы рабочий макрос у меня не работает. Защиты макросов нет.
ругается на строку
[vba]Код
For Each oVB In ActiveWorkbook.VBProject.VBComponents
[/vba]