Страница 1 из 1

Программно открыть книгу с отключением макросов

Добавлено: 30 дек 2008, 13:28
RomaS
Подскажите, как программно с помощью VBA открыть другую книгу, но с отключением в ней макросов (там есть автозапуск, его в данный момент запускать не нужно)
Оттуда надо скопировать кое-какие данные, потом закрыть
Если просто так:

Код: Выделить всё

 Workbooks.Open (NewName)
ActiveWorkbook.Sheets("Счет").Visible = True
ActiveWorkbook.Sheets("Счет").Activate 
то документ открывается, макросы запускаются.
(даже нет окошка с запросом включить-не включить)

Re: Программно открыть книгу с отключением макросов

Добавлено: 30 дек 2008, 22:29
VictorM
Создаете книгу, в ней помещаете такой код:

Код: Выделить всё

Sub NoStart()
Dim iName
 iName = "ИмяКниги"
iFullName = "C:\Temp\" & iName'обе книги в одной папке
With Application
     .EnableEvents = False
     .Workbooks.Open Filename:=iFullName
     .EnableEvents = True
End With
End Sub
Запускаете макрос и книга ИмяКниги открывается без запуска макросов.
Теперь с ней можно делать что угодно))