Don't save sheet if condition not met (If cell is highlight)

Viorica000 

Here's an example code that demonstrates how you can achieve this:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Check if any highlighted cells are present
    If HighlightedCellsExist() Then
        MsgBox "Please remove the highlighted cells before closing the workbook.", vbExclamation, "Cannot Close"
        Cancel = True ' Cancel the close operation
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' Check if any highlighted cells are present
    If HighlightedCellsExist() Then
        MsgBox "Please remove the highlighted cells before saving the workbook.", vbExclamation, "Cannot Save"
        Cancel = True ' Cancel the save operation
    End If
End Sub

Private Function HighlightedCellsExist() As Boolean
    Dim rng As Range
    Set rng = Sheet1.Range("A1:A10") ' Specify the range where you want to check for highlighted cells
    
    ' Check if any cell within the range is highlighted
    HighlightedCellsExist = WorksheetFunction.CountA(rng.SpecialCells(xlCellTypeConstants, xlLogical)) > 0
End Function

Now, when the user tries to close the workbook or save it while there are highlighted cells within the specified range, a message box will appear, and the close or save operation will be canceled until the highlighted cells are cleared.