Hi Happy,

Hi Yzelle,
Please remember to place below code into “ThisWorkbook” script window, and rename the worksheet name “Test” in the below code based on your condition.

Dim xIRg As Range
Dim xSRg As Range
Dim xBol As Boolean
Dim xInt As Integer
Dim xStr As String
If ActiveSheet.Name = "Test" Then
Set xRg = Range("C:C")
Set xRRg = Intersect(xRg.Worksheet.UsedRange, xRg)
xBol = False
On Error Resume Next
For xInt = 1 To xRRg.Count
Set xIRg = xRRg.Item(xInt)
If xIRg.Value2 <> "" Then
Set xSRg = Nothing
If (Range("O" & xIRg.Row) = "") Or (Range("P" & xIRg.Row) = "") Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
Cancel = True
MsgBox "Save cancelled"
End If
End If
End Sub

Hi Wkai,
Try this VBA code:
(This VBA code will detect Range A2:E5 in the Sheet “Test”, and cancel saving if there are blank cells existing in the range.)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xWSName As String
Dim xRgAddress As String
Dim xRg As Range
Dim xWs As Worksheet
Dim xFNRg As Range
xWSName = "TEST"
xRgAddress = "A2:E5"
Set xWs = Application.ActiveWorkbook.Worksheets.Item(xWSName)
Set xRg = xWs.Range(xRgAddress)
Set xFNRg = Nothing
On Error Resume Next
Set xFNRg = xRg.SpecialCells(xlCellTypeBlanks, 23)
If Not TypeName(xFNRg.count) = "Nothing" Then
Cancel = True
MsgBox "Save cancelled"
End If
End Sub

Hi Eduardo,
What about typing a space in the specified cell to pretend to a blank cell? Please remind to remove the space in future!