这段代码是使用Microsoft Library 15.0创建的，但不能在14.0上运行，并且高亮了“ Sub”一词？

Question

使用Microsoft Library 14.0的用户尝试在excel中运行该程序时出现错误，突出显示“ Sub OptoRun（）”。我在15.0中创建了这个。我需要更改吗？我怎么知道将其更改为什么？

Sub OptoRun()
'
' OptoRun Macro
'
    ActiveSheet.Unprotect Password:="9061"
'
    SolverOk SetCell:="$AC$1", MaxMinVal:=1, ValueOf:=0, ByChange:="$Q$2:$Q$200", _
        Engine:=2, EngineDesc:="Simplex LP"
    SolverOk SetCell:="$AC$1", MaxMinVal:=1, ValueOf:=0, ByChange:="$Q$2:$Q$200", _
        Engine:=2, EngineDesc:="Simplex LP"
    SolverSolve UserFinish:=True

    Range("priorProjPts").Value = Range("totProjPts").Value - 0.01

    ActiveSheet.Protect Password:="9061"
End Sub