Excel VBA отключить включить расчет

Question

У меня есть рабочая книга с множеством различных формул, и у меня есть одна рабочая таблица с именем «Карта», которую мне не нужно автоматически вычислять каждый раз, когда я вводю новые данные в другую рабочую таблицу.У меня есть следующий код VBA ниже на этом листе.Проблема в том, что мне нужно вручную перейти на вкладку «Разработчик», «Свойства», «Включить расчет» и выбрать «Ложь».Когда я делаю это таким образом, код работает отлично.Однако при закрытии и повторном открытии книги параметр «Включить расчет в свойствах» автоматически изменяется на «Истина».Похоже, я не могу придумать код, который превращает это свойство на этом отдельном листе только в «Ложь» при открытии рабочей книги.

Буду признателен за любые предложения о том, как это сделать.Я новичок в кодировании, как будто я впервые пытаюсь написать код VBA, и мне потребовались дни, чтобы просто получить то, что у меня ниже.Таким образом, чем описательнее, тем лучше.Спасибо!

Sub docalc()
Dim oldCalc As Boolean
oldCalc = ActiveSheet.EnableCalculation
ActiveSheet.EnableCalculation = False
ActiveSheet.EnableCalculation = True
ActiveSheet.EnableCalculation = oldCalc
End Sub

Answer 1

Вставьте модуль с именем Sub Workbook_Open() и добавьте строку ws.EnableCalculation = False, где ws - это таблица, для которой вы хотите установить свойство - например, worksheets("Sheet4") или worksheets(4).Подпункт Workbook_Open () будет запускаться автоматически при каждом открытии книги.