Store this small macro in ThisWorkbook code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Set r = Workbooks("B1.xls").Sheets("S1").Range("A1")
r.Value = Environ("UserName")
End Sub


change the workbook and sheet names to suit you. If you are not familiar
with VBA, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
Gary's Student
gsnu200701


"louiscourtney" wrote:

Is it possible to record who opens and saves something to the excel file??