x>Такая проблемка:
x>Есть необходимость удалять макрос прогаммно,
x>после того как он выполнил свою работу.
x>Есть ли такая возможность в VBA. Если есть, то как это зделать?
Да есть.
Включи cсылку на библиотеку Visual Basic for Application Extensibility.
Разберись с объектной моделью.;)
Пример удаления всех макросов, модулей, модулей классов, форм.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub DeleteAllCode()
Dim vbc As VBComponent
With Application.VBE.ActiveVBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case vbext_ct_ClassModule
.VBComponents.Remove vbc
Case vbext_ct_MSForm
.VBComponents.Remove vbc
Case vbext_ct_StdModule
.VBComponents.Remove vbc
Case vbext_ct_Document
vbc.CodeModule.DeleteLines 1 , vbc.CodeModule.CountOfLines
End Select
Next
End With
End Sub
Для того чтобы удалить отдельный макрос смотри у объекта CodeModule свойства ProcOfLine, ProcStartLine, ProcCountLine и т.д. Чтобы не разбираться во всем этом, может быть имеет смысл перенести макросы, подлежащие удалению, в отдельный модуль, а затем его удалять?
P.S. Маленький нюанс. Начиная с Office2000(по крайне мере в Office XP) необходимо включить флажок "Доверять доступ к Visual Basic Project" (Сервис->Макрос->Безопасность).
