Function SpecialFunction1(param)
   If  Not someFlag Then
      ' нормальный расчет, для которого и предназначена эта функция.
       SpecialFunction1=DoALotOfCalcuations(param)
   Else
      Select Case TypeName(Application.Caller)
        Case "Range" 
                If Это_Первое_вычисление_Для_Данной_клетки then
                  SpecialFunction1=CVErr(xlErrValue)  
                else
                   'значение клетки не должно измениться независимо от состояния входных 
                   'параметров, если пользовательский флаг запрещает пересчет.
                   SpecialFunction1=предыдущее(ранее_расчитанное)значение_вызывающей_клетки
                   
                   'прямое восстановление предыдущего значения путем повторного выполнения 
                   '   DoALotOfCalcuations(previouse_param_value) невозможно, т.к. 
                   '  внутри DoALotOfCalcuations происходит обращение к внешнему источнику данных
                   ' и нет способа привести эту внешнюю информацию к моменту предыдущего         
                   'вычисления.
                endif  
        Case Else
            'Do Nothing
      End Select

End Function

'A)
Function SpecialFunction2(param)
  If XLA_Has_Fresh_PreCalulation Then
      SpecialFunction2= GetPreparedValue(param)
  Else 
      RegisterCellWaitedForValue  param, Application.Caller,Application.Caller.Parent
      SpecialFunction2=CVErr(xlErrValue)  
  Endif
End Function
'B) 
Private Sub Worksheet_Calculate()
Application.OnTime Now + TimeValue(smallTime), "DoALotOfCalculationOnRegisterdParams"
End Sub

'C)
Sub  DoALotOfCalculationOnRegisterdParams
.....
.....
.....
   XLA_Has_Fresh_PreCalulation=True
  'запуск процедуры перевычисления
  Application.CalculateFullRebuild
End Sub