excel宏编写

来源:百度知道 编辑:UC知道 时间:2024/05/20 04:08:44
我的EXCEL表中空着四个空,如何编写一个宏,让人必须将填完一个空如果要保存,会出现一个提示,必须填完四个空后才让保存,否则保存不上?谢谢

一楼的回答,我试过不行,不能自动运行该宏,那里有问题

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheet1.Cells(1, 1) = "" Or Sheet1.Cells(1, 2) = "" Or Sheet1.Cells(1, 3) = "" Or Sheet1.Cells(1, 4) = "" Then
MsgBox "第一行的 1,2,3,4列不能为空!"
Cancel = True
End If
End Sub

是不是你的宏安全级别太高,把这个拷到 thisworkbook下即可