сохранение таблицы без макросов

[Юнлинг]

Уважаемые господа!
В процессе разработки возникла необходимость в следующем:
На компьютере открывается таблица tb.xls с Макросом. По окончанию выполнения таблица сохраняется на другом сетевом диске (t:\) следующем образом
ActiveWorkbook.SaveAs Filename:= _
"T:\data_potr\tb" + CBMonth.List(CBMonth.ListIndex) + " " + CBYear.List(CBYear.ListIndex) + ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Все работает OK. Но в таблице сохраняется и макрос.
Вопрос как изменить сохранение чтобы в новой таблице не было макроса и в то же время в исходной таблице он остался.

[IgorGO]

полагаю SendKeys может помочь.
1.Открыть редактор ВБА
2.Выбрать нужный проект
3.Отметить все
4.Удалить
Проблемным мне представляется только пункт 2. Остальные однозначны, на все есть комбинации клавиш (Alt+F11, ...., Ctrl+A, Del).

[Юнлинг]

Уважаемый IgorGO!

Может я не достаточно точно сформулировал вопрос.
Основная расчетная таблица 1 (пустая) стартует в 4 часа утра первого числа каждого месяца в автоматическом режиме на одном из компьютеров который постоянно находиться в работе. После проведения расчетов которые ориентировочно идут в течении часа необходимо автоматическое сохранение этой таблицы на диске t без макросов и без участия человека. Т.е.на 1 диске таблица с макросом не сохраняется, а на диске t:\ таблица tb(номер месяца)(номер года) сохраняется. Именно в этой таблицы должны отсутствовать следы макросов.
Это необходимо сделать из следующих сображений.
Макрос запускается и храниться в месте "ЭтаКнига". И если юзер случайно согласиться на включение макроса все данные в таблице будут стерты.
Установить функцию безопасности в режим "Очень высокая" не возможно. А ручками удалять проект не всегда возможно.

[IgorGO]

Я все правильно понял (вроде).

необходимо автоматическое сохранение этой таблицы на диске t без макросов и без участия человека

SendKeys работает так, будто в активном проложении кто-то жмет на клавиши, но все это происходит без участия человека.

Ниже пример. Я на листе разместил кнопку, навесил на нее выполнение макроса Test. Теперь при нажатии этой кнопки, открывается радактор ВБА и отмечает весь приведенный ниже код. Кстати Ctrl+A, почему-то не сработал. Пришлось две команды отсылать. Паузы можно делать побольше.

Sub Test()
  SendKeys "%{F11}", True
  pause 0.1
  SendKeys "^{HOME}", True
  pause 0.05
  SendKeys "^+{END}", True
End Sub

Sub pause(Sec)
  T = Timer
  Do While Timer < T + Sec
      DoEvents
  Loop
End Sub

план бы я написал такой:
- открыть управляющий файл
- из него открыть ваш tb.xls (он выполнит свои расчеты)
- подождать энное время (application.ontime), а лучше - из tb.xls получить сигнал, что расчеты окончены.
- Открыть редактор ВБА
- Выбрать проект tb.xls
- Отметить весь код
- Удалить
- сохранить tb.xls с новым именем на нужном носителе
- закрыть управляющий файл

это направление для поиска. Успехов!

[Serge_Bliznykov]

Юнлинг,
читать тут - http://www.msoffice.nm.ru/faq/macros/module.htm

ну и тут - Удаление кода, форм, модулей из книги.
и тут - Удалить все макросы с другого файла

[Юнлинг]

Igor_GO b Serge_blixnykov огромное спасибо.
на планета Excel нашел все что нужно.
К сожалению на микрософте не смог посмотреть админитраторы сети закрыли туда доступ.
Но в ваших ответах есть все что нужно.