Excel满足一定条件后才能保存,否则无法保存
1、新建一个Excel表格,然后右击工作表,选择查看代码
2、或同时按Alt+F11,打开VBE编辑器
3、双击ThisWorkbook,输入以下代码:Private Sub Workbook_Be酆璁冻嘌foreSave(B烤恤鹇灭yVal SaveAsUI As Boolean, Cancel As Boolean) For i = 1 To 65536 If (Cells(i, 1) <> "" And Cells(i, 2) = "") Or (Cells(i, 1) = "" And Cells(i, 2) <> "") Then MsgBox "AB列同一行不同时为空或有数据,不能保存!" Cancel = True Exit Sub End If NextEnd Sub
4、当条件不符合时,点击保存会出现弹窗提示"AB列同一行不同时为空或同时有数据,不能保存!"
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:64
阅读量:84
阅读量:31
阅读量:40
阅读量:88