Видел разные коды по удалению Макросов Макросом, но ни один не работает.
Это ругается на третью строку. For Each.......
Макросы без паролей. книга без защиты. На форумах сообщают что у них работает.
Это ругается на третью строку. For Each.......
Код |
---|
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 |
Не внимателен при вводе текста хорошо что есть F7