Question

我利用EXCEL VBA录制了一个宏，用来打开工作簿的迭代计算属性，但运行时出现424错误，求高人解答！

Sub Macro1()
' Macro1 Macro
' 宏由 XX 录制，时间: 2018/04/08
With Application
.MaxIterations = 100
.MaxChange = 0.001
.Calculation = xlCalculationAutomatic
End With
With MultiThreadedCalculation
.Enabled = False（此处提醒出错）
.ThreadMode = 0
End With
Application.Iteration = True
ActiveWorkbook.PrecisionAsDisplayed = False
With Application.SpellingOptions
.IgnoreCaps = True
.IgnoreMixedDigits = True
End With
With ActiveWorkbook
.SetPasswordEncryptionOptions PasswordEncryptionProvider:="", PasswordEncryptionAlgorithm:="OfficeStandard", PasswordEncryptionKeyLength:=0, PasswordEncryptionFileProperties:=False
.Password = ""
.WritePassword = ""
End With
End Sub

Answer 1

报错的行上面一行有错，修改为：

With Application.MultiThreadedCalculation
    .Enabled = False
    .ThreadMode = 0
End With

追问

修改过后又提示438错误！！就是ignorecaps=true那句

追答

我的程序没报错哦，你要么重新录制一下吧，要么给出你的最新代码的文本和拷屏，以及出错的拷屏，看看大家能否看出你错在哪里了。

追问

Answer 2

出错的上一句 With MultiThreadedCalculation
这个MultiThreadedCalculation是什么东东？
看前面都没定义过啊