Creating an access log

  • Thread starter Thread starter matpj
  • Start date Start date
M

matpj

Is it at all possible to create a text file, so that when any user opens
a particular spreadsheet, their username and current system date is
appended to the text file?

I'm inerested in creating an access log for one of our spreadsheets.
I'm no VBA expert, but i'm assuming this might quite straight forward.
Havent got a clue how to get the user's login ID, or Excel User name,
so any help will be appreciated.

thanks in advance,
Matt
 
Yes, I answered the same question a while back but cannot remember the link;
search this group for access log
 
hi,

thanks for the response.
I couldn't find a post with a reply frmo you, but I found another on
that does exactly what I want, although the spreadsheet I am creatin
will be saved in a Notes database.

I need the log file to be in a specified network path although when
try to use that, it throws up an error.

the original code for the log is:


Code
-------------------
Sub DoTheLog(myKey As String)
Open ThisWorkbook.Path & "\" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4) & "_usage.log" For Append As #1
Print #1, myKey & vbTab & Application.UserName _
& vbTab & fOSUserName _
& vbTab & fOSMachineName _
& vbTab & Format(Now, "mmmm dd, yyyy hh:mm:ss")
Close #1
End Su
-------------------


i'm trying to change the Open bit to read:


Code
 
matpj,
What does the "Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)"
part evaluate to ?

NickHK
 
that makes sure that the ".xls" is removed from the file name when
giving a name to the log file! :)
 
Back
Top