禁用自动计算

Question

我想在一张纸上禁用自动计算。 除了我看到激活了一张纸的自动计算功能外，您不能禁用其他纸的自动计算功能。

我尝试执行此代码，但是它不起作用。

    Sub EssaiTaux()
 '
 ' EssaiTaux Macro
 '

 '

  Worksheets("EssaiTaux").EnableCalculation = False
  Application.CutCopyMode = False
  ActiveSheet.ListObjects.Add(xlSrcRange, Range("$I$3:$P$18"), ,      xlYes).Name = _
    "Tableau4"
 …
  Range("I17").Select
  ActiveCell.FormulaR1C1 = "Total"
  Sheets("EssaiTaux").Select
  Range("J4").Select
  ActiveCell.FormulaR1C1 = "=+SUMIFS(BASE!C6,BASE!C9,RC9)"
  Range("J5").Select

   End Sub

我只想在一个单元格上应用一个公式，在一个特定的单元格上应用另一个公式，但是其他表已经激活了自动计算模式。