Макрос удаления макросов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос удаления макросов (Макросы/Sub)

vfrc08

Дата: Пятница, 05.06.2020, 12:03 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Добрый день. Прошу подсказать код макроса удаляющий все макросы в книге и самого себя!
[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]

К сообщению приложен файл: 3891875.xlsm (15.7 Kb)

Максим

Ответить

Pelena

Дата: Пятница, 05.06.2020, 12:22 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
У меня нормально отработал.
Проверьте, стоит ли у Вас галка Доверять доступ к объектной модели VBA (вкладка Разработчик -- Безопасность макросов)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Sobirjon

Дата: Пятница, 05.06.2020, 12:38 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 2 ±

Замечаний: 0% ±

2016

Вариант по проще
[vba]

Код

Sub KillMe()
    Dim a As String
    Application.DisplayAlerts = False
    ThisWorkbook.ChangeFileAccess xlReadOnly
    a = ThisWorkbook.FullName

    Kill a
    Application.DisplayAlerts = True
    ThisWorkbook.Close (False)
End Sub

[/vba]