Вот что получил в итоге долгих поисков и головоломок:
Sub ExportModule()
Book = Range("B1")
Element = Range("B2")
Filename = Book
On Error Resume Next
Workbooks(Filename).Activate
If Err <> 0 Then
MsgBox Filename & " необходимо открыть ", vbCxitical
Exit Sub
End If
Msg = "Этот макрос экспортирует Module1 в Oldppp.xls "
Msg = Msg & "Щелкните на кнопке ОК для продолжения."
If MsgBox(Msg, vblnformation + vbOKCancel) = vbOK Then
' Экспорт Modulel из текущей книги
Filename = Workbooks(Book).Path & "\Ntempmodxxx.bas"
Workbooks(Book).VBProject.VBComponents(Element).Export Filename
MsgBox "Модуль успешно экспортирован в папку книги, под именем Ntempmodxxx.bas", vblnformation
Else
MsgBox "Модуль не экспортирован!", vbCritical
End If
End Sub
но наткнулся н апроблемку:
ЕСЛИ книга (проект VBA) под паролем или скрыт (например вкл. общий доступ) то такой метод неактуален !!!
Как можно извлеч модуль или форму с защищенного (например паролем) проекта VBA ???
