сохранение файла при закрытии

[robotov]

Прошу прощения, что приходится вас напрягать, но мы уже залезли в такие дебри, что я просто не понимаю о чем идет речь(((

ПРи попытке использовать ваш код
в строке
For Each Comp In ThisWorkbook.VBProject.VBComponents
выскакивает ошибка
Programmatic aссess to Visual Basic Project is not trusted

[SAS888]

Это потому, что в настройках Excel запрещено программное изменение кода.
В Excel 2003 войдите в Сервис->Макрос->Безопасность...->Надежные издатели и установите флажок напротив опции "Доверять доступ к Visual Basic Project".

[robotov]

Спасибо, ошибка исчезла, но проблема осталась. Ладно, это не так важно, в копиях буду просто отключать макросы.
Не будем больше заморачиваться)

[SAS888]

но проблема осталась

Какая проблема?

[robotov]

Не очищается записываемый файл)
очищается тот, что в фокусе.
Только что удалил все макросы в документе) пришлось вспоминать восстанавливать)

[SAS888]

Посмотрите пример во вложении. Там 2 файла. Откройте оба. Файл "Book.xls" содержит программный модуль и код в модуле 1-го листа (код какой попало... просто. для примера). Если выполнить макрос "DelAll", который находится в файле "Main.xls", то будет "очищен" от всех кодов файл "Book.xls", не зависимо от того, какой файл активный (см. код макроса).

[robotov]

Да, так все работает. По отдельности. Как работало и раньше.
Но дело в том, что я не знаю, как встроить это в свой файл.
чтобы при закрытии файла происходили эти операции.
Если уж мы решили до конца разобраться- вот мой файлик.
Кстати, огромное вам спасибо. Сразу видно специалиста)

[SAS888]

Например, открываем Ваш файл, что-то делаем, затем закрываем. Что в каких случаях должно происходить?
Я понимал так, что у Вас есть какой-то файл с формами и макросами, на базе которого создается текущий рабочий файл, при сохранении которого нужно его "чистить" от всех компонентов VBA. Так? Если нет, то объясните все по порядку.

[robotov]

Открываем файл.
что-то там меняем.
когда нажимаем на крестик - "закрыть файл" - происходит запись измененного файла в другую директорию с очищением от всех макросов.
Первоначальный файл должен закрыться и при этом не измениться.
Вроде бы так.

[SAS888]

Если мы откроем файл, что-то в нем изменим, затем сохраним в другую директорию (или под другим именем), пусть даже с "очисткой", то исходный файл (который мы открывали) останется таким, каким и был при открытии. Просто закрывайте его (макросом) без сохранения и все. Или я чего-то не улавливаю?