Unlock cells after data entry

[Spes_]

Hi all,

I was wondering how to unlock cells after certain data was entered, e.x required fields are A1 B1, F1.

Once there are values in those fields the next row will become editable and so on...

Thanks

 

[Yongle]

Example below unlocks columns A to J in the active row if previous row columns A,B and F all contain some value
- amend the password and the cells to be unlocked to match your requirements

Goes in sheet module (right-click on sheet tab \ View Code \ paste VBA into that window \ {ALT}{F11} takes you back to Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Long:    r = Target.Row
    If r = 1 Then Exit Sub
    
    Me.Unprotect "password"
    If Cells(r - 1, "A") <> "" And Cells(r - 1, "B") <> "" And Cells(r - 1, "F") <> "" Then
        Cells(r, "A").Resize(, 10).Locked = False
    End If
    Me.Protect "password"
End Sub

 

[Yongle]

Please ignore suggestion in post#2

On second thoughts, this is a better approach
- frees up the first 10 columns in next row as soon as there is a value in all 3 cells in the current row

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Long:    r = Target.Row
    If Cells(r, "A") <> "" And Cells(r, "B") <> "" And Cells(r, "F") <> "" Then
        Me.Unprotect "password"
        Cells(r + 1, "A").Resize(, 10).Locked = False
        Me.Protect "password"
    End If
End Sub