Перенос макроса в новую книгу в Workbook_open()

[Daren]

Привет всем! чтото не могу сообразить.. копируем код с первоначальной книги содержащийся в разделе "ЭтаКнига" в новую книгу, и все казалось бы ОК, но 2 варианта событий:
.....
Set wbcodemod1 = ThisWorkbook.VBProject.VBComponents ("ЭтаКнига").CodeModule
ActiveSheet.Move
Set КнигаТП = ActiveWorkbook
Set wbcodemod2 =КнигаТП.VBProject.VBComponents("Эт аКнига").CodeModule
wbcodemod2.insertlines 1, wbcodemod1.Lines(1, wbcodemod1.countoflines)
Application.DisplayAlerts = False ' чтобы не орало что перезаписываем
ActiveWorkbook.SaveAs Filename:= _
"\\krsk-dc\profiles$\terentiev-an\Рабочий стол\Книга5.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.......
Итак после сохранения смотрим и код в новой книге появился какой и нужно на уровне открытия книги.
нажимаем руками сохранить и закрыть, открываем- код на месте!
если сохраняем программно и закрываем кода нет..балин
пробовал равнозначные :
.....
ActiveWorkbook.save
ActiveWorkbook.close
....
и через переменную
....
КнигаТП.save
КнигаТП.close
....
вопрос с в целом: код после ручного сохранения и закрытия остается..программно - нифига..

[Daren]

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

[Daren]

Народ может у кого есть похожие решения экспорта в workbook_open() ?
вся загвоздка из-за защиты множества документов который формирует исходный файл...по решению файл сам себя копирует в другое место удаляет лишние листы и возвращается к первоначальной книге , и все заного по кругу кака получается )))

[EducatedFool]

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

Файл не смотрел, но, на мой взгляд, вы сильно всё усложняете.

Я в таких случаях использую один из следующих вариантов:
1) рядом с файлом программы хранится файл-шаблон Excel
Надо создать новый файл - делаем копию файла-шаблона (в котором нужные листы с шапками, формулы, макросы и пр.), и наполняем этот файл данными
2) в файл программы добавляю несколько скрытых листов-шаблонов (возможно, с макросами). При необходимости создания нового файла - копирую первый из этих листов (при этом создаётся новая книга), а потом остальные листы копирую в созданную копированием первого листа книгу.

PS: Создавать много документов, каждый из которых содержит один и тот же макрос, - не совсем правильно. Имеет смысл поискать другие решения.

[Daren]

Ну спасибо, любой из вариантов мне подойдет...респект )