Excel满足一定条件后才能保存，否则无法保存

1、新建一个Excel表格，然后右击工作表，选择查看代码

2、或同时按Alt+F11，打开VBE编辑器

3、双击ThisWorkbook，输入以下代码：

Private Sub Workbook_BeforeSave(ByVal 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
   
   Next

End Sub

4、当条件不符合时，点击保存会出现弹窗提示"AB列同一行不同时为空或同时有数据,不能保存！"