Row protection based on specific cell

How do I automatically protect a row based on a cell?
Example: if you enter a value in cell E1, it will automatically protect cells to the left of the row, D1, C1, B1 and A1
And the same would apply to the following lines, if you enter a value in cell E2 it will automatically protect the cells to the left and so on.

Please help me.

Maybe try this one

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="MyPassword"
    Range("A" & Target.Row & ":D" & Target.Row).Locked = True
    Application.ScreenUpdating = True
    ActiveSheet.Protect Password:="MyPassword" End Sub

---

In this case simply change the password to the value you want to see in E1

oops.... Sorry Monteiro. Missed the important bit about each row.

actually, I tested the command and it didn't work, but thanks for trying to help me ;)

I would need something like this, that when inserting data in cell L413 it would automatically protect the cells to the left of the line, in this case cells A413:K413 and so on for the other lines... if you insert data in L414 it will automatically protect the line from A414: K414 and so onAttachment 31012

The only thing I managed to do was make a button to block it line by line, different from what I wanted, to make this process automatic...

I tried to make the blocking automatic, but when I press ENTER, the cursor changes lines and the formula doesn't work, because it reads the current line from the cursor. An alternative I found was to create a button to trigger the command. First, the user has to position the cursor on the line of the record that he wants to confirm and, when he clicks on the button, the worksheet blocks the confirmed record line and changes the color of the cells to highlight the confirmed record. These commands also do not confirm registration until the inspector's name is informed ok.

Code:

---

Sub Confirmar()
If MsgBox("Deseja realmente confirmar e bloquear este registro", vbYesNo, "Confirmação") = vbYes Then
  Dim Lin As Integer
  Lin = ActiveCell.Row
  If Sheets("Planilha1").Cells(Lin, 4) <> "" Then
    Application.ScreenUpdating = False
    Sheets("Planilha1").Unprotect ("omiliso9001")
    Sheets("Planilha1").Select
    Sheets("Planilha1").Cells(Lin, 1).Locked = True
    Sheets("Planilha1").Cells(Lin, 2).Locked = True
    Sheets("Planilha1").Cells(Lin, 3).Locked = True
    Sheets("Planilha1").Cells(Lin, 4).Locked = True
    Sheets("Planilha1").Cells(Lin, 1).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 2).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 3).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 4).Interior.ColorIndex = 4
    ActiveSheet.Protect ("omiliso9001")
  Else
    MsgBox "O registro somente pode ser confirmado quando informado o nome do inspetor!", vbInformation, "ERRO"
  End If
End If
Application.ScreenUpdating = True
End Sub

---

Attachment 31013

I tried this code, I feel that I almost got what I wanted but it gives an error, I feel that there is little left

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)    If Range("L:L") = "" Then
        Range("A3:K1048576").Locked = False
    ElseIf Range("L:L") = "inspector" Then
        Range("A3:K1048576").Locked = True
  Dim Lin As Integer
  Lin = ActiveCell.Row
  If Sheets("Planilha1").Cells(Lin, 12) <> "" Then
    Application.ScreenUpdating = False
    Sheets("Planilha1").Unprotect ("omiliso9001")
    Sheets("Planilha1").Select
    Sheets("Planilha1").Cells(Lin, 1).Locked = True
    Sheets("Planilha1").Cells(Lin, 2).Locked = True
    Sheets("Planilha1").Cells(Lin, 3).Locked = True
    Sheets("Planilha1").Cells(Lin, 4).Locked = True
    Sheets("Planilha1").Cells(Lin, 5).Locked = True
    Sheets("Planilha1").Cells(Lin, 6).Locked = True
    Sheets("Planilha1").Cells(Lin, 7).Locked = True
    Sheets("Planilha1").Cells(Lin, 8).Locked = True
    Sheets("Planilha1").Cells(Lin, 9).Locked = True
    Sheets("Planilha1").Cells(Lin, 10).Locked = True
    Sheets("Planilha1").Cells(Lin, 11).Locked = True
    Sheets("Planilha1").Cells(Lin, 12).Locked = True
    Sheets("Planilha1").Cells(Lin, 1).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 2).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 3).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 4).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 5).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 6).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 7).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 8).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 9).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 10).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 11).Interior.ColorIndex = 4
    Sheets("Planilha1").Cells(Lin, 12).Interior.ColorIndex = 4
    ActiveSheet.Protect ("omiliso9001")
  Else
End If
  End If
Application.ScreenUpdating = True
End Sub

---