Populate Date on Total Change

[sscornav]

I have the following spreadsheet. Users are allowed to update the yellow colored fields with their forecast. If the total changes (column E), I want to update column F with the current date/time and column G with the user name.

I could use some help with the macro. Thanks!

Excel Workbook
	A	B	C	D	E	F	G
1	1Q	2Q	3Q	4Q	Total	Date Changed	User Name
2	10.00	22.00	35.00	50.00	117.00
3	15.00	55.00	20.00	50.00	140.00
4	75.00	60.00	40.00	40.00	215.00
5	45.00	25.00	25.00	90.00	185.00
Sheet1

 

[sscornav]

Clarification: Where would be the most efficient place to unprotect in the new macro that updates the date and user?

 

[Andrew Poulsom]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    If Intersect(Target, Range("A2:D5")) Is Nothing Then Exit Sub
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
        Me.Unprotect "pmo"
        For Each Cell In Target
            Range("F" & Cell.Row) = Format(Now, "mm/dd/yyyy hh:mm:ss AM/PM")
            Range("G" & Cell.Row) = Environ("username")
        Next Cell
        Me.Protect "pmo"
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub