Perhaps
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Const WkPW As String = "MyPassWord"
Const WkKW As String = "Finish"
   If (Target.Column <> 4) Then Exit Sub
   If (Target.Value = WkKW) Then
      Rows(Target.Row & ":" & Target.Row).EntireRow.Hidden = True
      Rows(Target.Row & ":" & Target.Row).EntireRow.Locked = True
      With Sheets("Data")
          .Protect Password:=WkPW, UserInterfaceOnly:=True
      End With
   End If
End Sub