Search unlocked cells, if empty, don't allow document to be saved

[jarzack]

Beginner help needed.

I have a worksheet used for user inputs. This worksheet is Protected and the user will only be able to input data into unlocked cells. I need a way to search all unlocked cells are empty, if yes then not allow the document to be saved.

How do I do this?

 

[rowebca]

You can add this script to "Workbook/BeforeSave" inside VBA for ThisWorkBook:

Dim ce As Range
Dim M As Double
 For Each ce In ActiveSheet.UsedRange ' Change it to desired worksheet
 If ce.Locked = False And ce = "" Then
 M = M + 1
 End If
Next
If M > 0 Then
Cancel = True
MsgBox "This workbook cannot be saved, you have to fill up all cells required!"
Else
Cancel = False
End If

Here: