Sub DeleteAllVBA(WB As Workbook)

Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents

Set VBComps = WB.VBProject.VBComponents

For Each VBComp In VBComps

        Select Case VBComp.Type
           Case vbext_ct_StdModule, vbext_ct_MSForm, vbext_ct_ClassModule
              VBComps.Remove VBComp
           Case Else
              With VBComp.CodeModule
                 .DeleteLines  1 , .CountOfLines
              End With
        End Select

Next VBComp
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы