Нашел, Как говориццо, себе - и спешу поделиться со всеми :) Оказывается, использование свойства Calculation, по моим наблюдениям, возможно только в том случае, если в Ёкселе открыт ХОТЯ БЫ один документ, и у него отображен ХОТЯ БЫ один лист. В противном случае установка данного свойства приводит к exception.
Как же его обойти? Да оказывается достаточно просто!!
Вот он - первосырец на сайте мелкомягких:
мелкомягкие для арабов
вот кусочек интересного сырца:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
' Auto_Open macros run automatically when you open the workbook.
Sub Auto_Open()
With ThisWorkbook.Worksheets("Sheet1")
...
.EnableCalculation = False
End With
End Sub
Тобишь устанавливая в цикле указанное свойство для КОНКРЕТНОГО документа можно выставлять свойство автовычисления формул на листах. Тут же можно и придумать как в автомате одни листы пересчитывать, а другие - нет.
Умельцы набросали такой вот макросик на автооткрытие документа:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Workbook_Open()
On Error GoTo err
Dim iWSheet As Worksheet
For Each iWSheet In Application.ActiveWorkbook.Worksheets
If iWSheet.Cells( 1 , 1 ).Value = "Стоп" Then iWSheet.EnableCalculation = False _
Else iWSheet.EnableCalculation = True
Next
Exit Sub
err:
End Sub
Таким чином, возможно, установка свойств автопересчета листа, а не приложения, является более правильным, поскольку не гадит людям в случае ошибки при повторном открытии Ёкселя для других целей (открываем документ - ставим ручной пересчет - автопересчет не включаем по какой-то причине - при следующем открытии любого другого документа имеем грабли в виде ручного пересчета формул)
