MyTetra Share
Делитесь знаниями!
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - VBA управление кодами

Public Sub RemoveAllModules()

Dim project As VBProject

Set project = Application.VBE.ActiveVBProject

Dim comp As VBComponent

For Each comp In project.VBComponents

If Not comp.Name = "DevTools" And (comp.Type = vbext_ct_ClassModule Or comp.Type = vbext_ct_StdModule) Then

project.VBComponents.Remove comp

End If

Next

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования