Sub ARRIVEE()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="password"
Next
Dim cel As Range
With Sheets("User")
For Each cel In .Range("b5:h28")
If cel.Value = Date Then cel.Offset(1, 0) = Format(Now, "hh:mm")
Next cel
End With
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="password"
Next
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub