Страницы: 1
RSS
Удаление макросов макросом, Удаление макросов без пересохранения в XLSX
 
Видел разные коды по удалению Макросов Макросом, но ни один не работает.
Это ругается на третью строку. 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
 
Просто в настройках безопасности запрещен доступ к модели данных ибо это реальная бреш, можно сделать макрос, который запустится. натворит бед и самоудалится.
По вопросам из тем форума, личку не читаю.
 
Кросс http://www.excelworld.ru/forum/10-45094-1
 
Цитата
запрещен доступ к модели данных
разрешил доступ и все работает.
Не внимателен при вводе текста хорошо что есть F7
Страницы: 1
Наверх