我正在尝试根据单元格的颜色通过应用它的公式来更改其颜色。我也想保持工作表的保护。我有一些未锁定的单元格，这些单元格用于放置手动值，因此随后更改了“ Q13”单元格的颜色

这是我的代码的样子，我是VBA的新手，我在这里做错什么了？

Private Sub Workbook_Open()
activeSheet.Protect Password = "coi2020",UserInterfaceonly = True
End Sub

Private Sub Worksheet_calculate()

If activeSheet.Range("Q13") < 0 Then
        MsgBox "Caution,Budget out of limit"
        activeSheet.Range("Q13").Interior.Color = RGB(255,0)
    End If
If activeSheet.Range("Q13") >= 0 Then
        activeSheet.Range("Q13").Interior.Color = RGB(0,255,0)
        End If
End Sub