calculating user

B

Beans

Is there a function similar to NOW() that will show which user last made
changes to a file?
 
C

CLR

Here's a neat little ditty that Gord Dibben posted awhile back....

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 0
On Error Resume Next
Dim curComment As String
curComment = ""
curComment = Target.Comment.Text
If curComment <> "" Then curComment = curComment & Chr(10)
Target.AddComment
Target.Comment.Text Text:=curComment & _
ActiveWorkbook.Application.UserName & _
Chr(10) & " Rev. " & Format(Date, "yyyy-mm-dd ") & _
Format(Time, "hh:mm")
ActiveCell.Comment.Visible = False
'comment perhaps should be resized
End Sub

Vaya con Dios,
Chuck, CABGx3
 
G

Gord Dibben

In addition

You might want to change ActiveWorkbook.Application.UserName to

Environ("UserName") which returns the login name.


Gord
 
B

Beans

For anyone who might find this
After a bit of tinkering, i modified the code to run whenever the workbook
is saved....

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Dummy
End Sub

Public Sub Dummy()
Dim curComment As String
Dim aworksheet As Worksheet

For Each aworksheet In Worksheets
aworksheet.Activate

With Cells(1, 1)
.Interior.Color = RGB(0, 0, 175)
On Error Resume Next
curComment = ""
curComment = .Comment.Text
If curComment <> "" Then curComment = curComment & Chr(10)
.AddComment
.Comment.Text Text:= _
ActiveWorkbook.Application.UserName & " was the last editor" & _
Chr(10) & " Rev. Date: " & Format(Date, "yyyy-mm-dd ") & _
" Time: " & Format(Time, "hh:mm")
End With
Next
Worksheets(1).Activate
End Sub
 
Top