代码应该写在工作表事件中,不应在工作簿事件。不过这个代码会出现死循环
在工作簿中可改为
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("D1").Value <> "金" Then
MsgBox "不允许删除", 16, "删除提示"
Application.Undo
End If
End Sub
代码应该写在工作表事件中,不应在工作簿事件。不过这个代码会出现死循环
在工作簿中可改为
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("D1").Value <> "金" Then
MsgBox "不允许删除", 16, "删除提示"
Application.Undo
End If
End Sub