Simple Daily Log

**eventnyc** · 11-28-2013, 12:28 PM

Let me start off by saying I don't know anything about excel

I am attempting to create a simple "daily Log" for my security company which will have a 2 columns that list the date and time automatically and an entry column:

11/28/2013 - 2130 hours - Security Officer Fred Brown reports that all is secure at client ABC

I'd like to post this spreadsheet to google docs where my executive team can view its entries without being able to enter information into the log. I'd also like the end user (dispatch) to not have the ability to change any entries once made (lock the cell.) I am assuming that I may have to change the file name every month to start a "new" month's worth of entries. Can anyone assist me with what I am guessing is a simple task? I am hoping that time can be listed as military time.

I am also "new" to the forum. Happy Thanksgiving!

Dennis

**HaHoBe** · 11-29-2013, 04:52 AM

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