Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For i = 1 To 15
If Cells(i, 1) <> "" Then
If Cells(i, 2) = "" Or Cells(i, 3) = "" Or Cells(i, 4) = "" Or Cells(i, 5) = "" Then
MsgBox ("第" & i & "行数据不完成,请补充.")
Cancel = True
Exit Sub
End If
End If
Next
End Sub