Как включить выполнение макроса при переходе из одной открытой книги в другую

Пользователь

Сообщений: 173 Регистрация: 27.02.2013

16.05.2019 15:27:22

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

Спасибо

Прикрепленные файлы

Тест.xlsb (22.68 КБ)

Быстрее молнии, быстрее ветра, быстрее калькулятора

Dyroff

Пользователь

Сообщений: 1177 Регистрация: 01.01.1970

16.05.2019 15:38:57

Может от обратного? При активации этой книги отключаем пересчет, при деактивации включаем снова

Код
Private Sub Workbook_Activate() Application.Calculation = xlCalculationManual End Sub Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationAutomatic End Sub

Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!

Пытливый

Пользователь

Сообщений: 4714 Регистрация: 22.12.2012

16.05.2019 15:39:02

Добрый день.
Можно в модуле объекта ThisWorkbook повесить инструкцию на событие Deactivate

Код
Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationAutomatic End Sub

а на событие Асtivate повесить xlCalculationManual

Изменено: Пытливый - 16.05.2019 15:39:24

Кому решение нужно - тот пример и рисует.

Borrusale Пользователь Сообщений: 173 Регистрация: 27.02.2013	#4 16.05.2019 15:53:24 Спасибо.Работает. Почему сам не догадался загадка))) Быстрее молнии, быстрее ветра, быстрее калькулятора