Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim inputRange As Range
Set ws = Worksheets("Sheet1")
ws.Unprotect
Application.EnableEvents = False


'tell this sub to unprotect only these cells
Set inputRange = Range("B1:C100")


' If the selected cell is not in the range keep the sheet locked
If Intersect(Target, inputRange) Is Nothing Then
'else unprotect the sheet by providing password
'(same as the one that was used to protect this sheet)
Else

    
    Target.Locked = False
    With Target
    If .Cells.Count = 1 Then
        If .Column = 2 And .Row > 1 And .Value = "In" Then
            .Offset(, 2).Value = Format(Now(), "dd/mm hh:mm:ss")
        End If
        If .Column = 3 And .Row > 1 And .Value = "Out" Then
            .Offset(, 2).Value = Format(Now(), "dd/mm hh:mm:ss")
        End If
    End If
    
    End With
    
End If
Application.EnableEvents = True
ws.Protect

End Sub