excel vba 当一个单元格背景颜色为红色时，无法保存和无法关闭excel

Question

假如range("a1")背景颜色为红色，则无法保存excel；
假如range("a2")背景颜色为红色，则无法关闭excel；
请高手写出这两段代码，谢谢

Answer 1

''''禁止保存
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Range("a1").Interior.Color = vbRed Then
        MsgBox "禁止保存"
        SaveAsUI = True
        Cancel = True
    End If
End Sub

''''禁止关闭
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Range("a2").Interior.Color = vbRed Then
        MsgBox "禁止关闭"
        Cancel = True
    End If
End Sub

Answer 2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If sheeets(1).Range("A2").Interior.ColorIndex = 3 Then Cancel = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If sheeets(1).Range("A1").Interior.ColorIndex = 3 Then Cancel = True
End Sub

Answer 3

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("a2").Interior.ColorIndex = 3 Then
Cancel = True
MsgBox "不能关闭"
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1").Interior.ColorIndex = 3 Then
Cancel = True
MsgBox "不能保存"
End If
End Sub