Simple Daily Log

Hi, Dennis ,

welcome to ExcelForum.

If you use Excel2003 as stated in the profile you have to check if things work okay, workbook was created with Excel2013 and should work from Excel2007 on. Feel free to have a look at it, I introduced three areas for Data Valiudation on Sheet Data while the entries will be made on Sample. Just use TAB to create a new line in the Table and choose from the entries.

Code behind Sheet Sample:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C:C")) Is Nothing Then
  ActiveSheet.Unprotect
  Range("A:B").Locked = False
  Application.EnableEvents = False
  With Cells(Target.Row, "A")
    If .Value = "" Then .Value = Date
    If .Offset(0, 1).Value = "" Then .Offset(0, 1).Value = Format(Time, "'hhmm")
  End With
  Application.EnableEvents = True
  Range("A1:F" & Target.Row - 1).Locked = True
  Range("A:B").Locked = True
  ActiveSheet.Protect
End If
End Sub

Ciao,
Holger