vba 单元格禁用公式

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count <> 1 Then Exit Sub

    If Target.Address(0, 0) <> "A1" Then Exit Sub

    If Left(Target.Formula, 1) = "=" Then

        Application.EnableEvents = False

            MsgBox "A1单元格不允许输入公式，请修正"

            Target = ""

            Target.Select

        Application.EnableEvents = True

    End If

End Sub

请把以上代码复制到sheet1当中，代码功能说明：禁止A1单元格输入公式，如果输入公式给出提示并清空A1内容