VBA-保护和Worksheet_calculate

如何解决VBA-保护和Worksheet_calculate

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

解决方法

第13季度的有条件格式将是一个简单的解决方案，不需要vba代码。

如果您喜欢宏，请在格式化之前添加ActiveSheet.Unprotect ...行，然后再使用Activesheet.Protect进行保护...您可以在if ... then语句中使用“ else”，您的代码可以更简单。