Отключить запуск макроса внешней книги при её открытии.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отключить запуск макроса внешней книги при её открытии. (Макросы/Sub)

Glen

Дата: Вторник, 22.01.2019, 13:03 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

Всем доброго дня.
В ходе выполнения макроса VBA есть необходимость открыть внешнюю книгу методом
[vba]

Код

Set objXL = CreateObject("Excel.Application")
Set wbCSV = objXL.Workbooks.Open(Filename:=****

[/vba]
Забрать из нее данные и сразу закрыть.
Проблема в том, что эта внешняя книга при открытии по [vba]

Код

Workbook_Open

[/vba] запускает свой макрос и из за этого происходит потеря времени.
Можно ли отключить запуск макроса внешней книги при запуске, либо вызвать её другим способом исключающим этот запуск?

Пехаль киндриков куравь, пехаль киндриков лузнись.

Сообщение отредактировал Glen - Вторник, 22.01.2019, 13:05

Ответить

_Boroda_

Дата: Вторник, 22.01.2019, 13:43 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Вот такая штука прокатывает, только потом файл лучше без сохранения закрыть
[vba]

Код

Application.DisplayAlerts = 0
Workbooks.Open Filename:="g:\Путь\77.xlsm", CorruptLoad:=xlExtractData
Application.DisplayAlerts = 1

[/vba]

А лучше вот так
[vba]

Код

Set objXL = CreateObject("Excel.Application")
aas_ = objXL.AutomationSecurity
objXL.AutomationSecurity = msoAutomationSecurityForceDisable
Set wbCSV = objXL.Workbooks.Open("g:\моя\стереть\77.xlsm")
objXL.AutomationSecurity = aas_

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Glen

Дата: Вторник, 22.01.2019, 14:29 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

Вот главная строчка:

Цитата _Boroda_, 22.01.2019 в 13:43, в сообщении № 2 ()

objXL.AutomationSecurity = msoAutomationSecurityForceDisable

Мне по сути возвращать и не надо, я с MS Project открываю файлик.
Спасибо_Boroda_! Извини не знаю как звать. В очередной раз мгновенная точечная помощь!!

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

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