Excel 2007 : Lock cell if Blank formula

[SIXFORTYSIX]

Is it possible to flag an unlocked/unprotected cell to locked if blank, with a formula?

[teylyn]

You can't change the lock flag with a formula. You'll need VBA.

[contaminated]

Like below

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    On Error GoTo ErrHandler
    Me.Unprotect
    For Each Cell In Cells.SpecialCells(xlCellTypeFormulas)
        With Cell
            If .Value = "" Then
                .Locked = True
            Else
                .Locked = False
            End If
        End With
    Next Cell
    Me.Protect
    Exit Sub
ErrHandler:
    If Err.Number > 0 Then
        Err.Clear
        Resume Next
    End If
End Sub

How to Save a Workbook Event Macro

1. Copy the macro using CTRL+C keys.
2. Open your Workbook and Right Click on any Worksheet's Name Tab
3. Left Click on View Code in the pop up menu.
4. Press the Enter key to move the cursor to the Code Window
5. Paste the macro code using CTRL+V
6. Save the macro in your Workbook using CTRL+S

[SIXFORTYSIX]

I've Adapted that VBA and it works!!!! Thanks!