Add users' Initials to the footer

How about this macro...

Sub Footer()
With ActiveSheet.PageSetup
         .LeftFooter = "Revised on " & Date & " by " & Application.UserName
End With

End Sub

You would have to work out when you'd like this to happen, be it when the document saves, when it opens etc.