| Вопрос: Сохранить как без сохранения макроса | Добавлено: 16.06.04 14:32 |
Автор вопроса:  Padre | Web-сайт: localhost | ICQ: 346632205 |
| Есть екселевский файл с набором определённых макросов, при выполнении одного из них этот файл сохраняется под новым именем. Как в новом файле не сохранять макросы? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 16.06.04 14:35 |
Мучался над этим очень долго. Результата не добился.. если кто знает - скажите уж.. нас двое
|
||
|
Номер ответа: 2 Автор ответа:  FoxMalder133 ICQ: 305919394 Вопросов: 8 Ответов: 17 |
Профиль | | #2 | Добавлено: 22.06.04 11:00 |
|
Предлагаю просто скопировать все листы:
Sheets("Лист1"  .Copy- в новую книгу или
Sheets("Лист1" .Copy Before:=Workbooks("Книга1".Sheets(1)
|
||
|
Номер ответа: 3 Автор ответа: ActiveXВопросов: 0 Ответов: 73 |
Профиль | | #3 | Добавлено: 04.10.04 18:37 |
|
Специально для Вас самый простенький макрос (проверено в MS Excel 97, 2000)
P.S. Макросы просто удаляются из новой книги, что не совсем соответствует Вашим требованиям, но при наличии в рабочей книге большого количества листов, предыдущий ответ будет очень трудоёмким. Примечание : Нельзя забывать, что макросы могут храниться и в программных модулях листов и в ThisWorkbook (ЭтаКнига) при этом при использовании обоих советов они в них же и останутся. Sub DeleteMacros() Rem Application.DisplayAlerts = False ' при желании ActiveWorkbook.SaveAs "  eleteMacrosCopy.xls"
Set iVbaComponent = ActiveWorkbook.VBProject.VBComponents iCount = iVbaComponent.Count For i = iCount To 1 Step -1 iCompType = iVbaComponent(i).Type If Not iCompType <> 1 Then iVbaComponent.Remove iVbaComponent(i) End If Next Rem ActiveWorkbook.Save ' при желании Rem Application.DisplayAlerts = True ' откат End Sub |
||
|
Номер ответа: 4 Автор ответа:  Stas2kВопросов: 6 Ответов: 16 |
Профиль | | #4 | Добавлено: 05.10.04 14:20 |
| Только ты забыл отметить, что в диалоговом окне "Безопасность" на закладке "Надежные источники" нужно разрешить программный доступ к проектам VBA. | ||
|
Номер ответа: 5 Автор ответа: ActiveXВопросов: 0 Ответов: 73 |
Профиль | | #5 | Добавлено: 05.10.04 15:06 |
|
Стасик внимательно прочитай мой текст :
Цитата : (проверено в MS Excel 97, 2000) В MS Excel 97 команды <Безопасность> просто не существует, а MS Excel 2000 (несмотря на наличие данной команды) запрета к объектам (проектам) VBA тоже нет. А вот что я действительно забыл, так это напомнить человеку который более тысячи раз давал ответы на этом форуме, что для запуска макроса необходимо нажать на кнопку <Не отключать макросы> (Включить макросы) |
||
Страница: 1 |