检查单元格= 0,如果它显示消息框并取消保存

Question

我遇到了一些VBA代码的问题,这些代码看起来很基本,但却无法正常工作.我是VBA的新手,所以可能我错过了一些东西.

代码应该检查单元格(XFD3002)以查看它是否等于0,如果它然后显示消息并停止保存文件.对于背景,有一个检查,看到某些单元格被填充,如果没有,它将返回0.

代码是:

Private Sub Check_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim check As Integer
check = Sheets("Data").Range("XFD3002").Value

If check = 0 Then
    MsgBox ("You have missed one or more required field")
    Cancel = True
End If

End Sub

任何人都可以看到上面的错误吗？

Answer 1

子名称应该是Workbook_BeforeSave.

最难发现的错误始终是最简单的错误.:d