Good Day All,

I need help with a current problem. I have a workbook sheet where I used a USERNAME() formula (Not in VBA) on a locked cell.

Problem is that every time a user opens the sheet, it takes that users id and fills all respective cells with its id.

I would like it to keep all username id's as it was entered by that user.

With some searching I think I should try a VBA approach.

However, I cannot for the life of me insert it into my existing sheet change.

Please see below, target cells is correct. I need it to put a "current" username reference in column C, and a Date reference in Column E.

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
     
On Error GoTo justenditall
 If Not Intersect(Target, Range("G37:N48,H54:N68,G75:N82,H88:N105")) Is Nothing Then
  If IsEmpty(Target) Then
        Target.Locked = False
    Else
         If Target.Locked = False Then
            ActiveSheet.Unprotect "EMDEN"
          Target.EntireRow.Locked = True
            ActiveSheet.Protect "EMDEN"
        End If
    End If
    End If

justenditall:             Application.EnableEvents = True
     
End Sub
Please this is very important as I have to implement this sheet by end of this day.

Thank You