Solved: how do i get the the name of the user who opened the file?

[mancubus]

hi board.

i tried the codes by Ivan Moala at
http://www.xtremevbtalk.com/showthre...8&page=2&pp=20
but user name returned null. (no errors, just blank MsgBox.)

and below returned my username, not the person's name who opened the file.

[VBA]Msgbox(ActiveWorkbook.WriteReservedBy)[/VBA]


any ideas?

[Jan Karel Pieterse]

So far the most reliable way I've seen is:
- check if workbook is opened in read/write mode
- If so, update a (custom) document property with the username
- Save the file.
If a user opens read-only, read the property to extract the name of the user working on the file.

[gnod]

hi board.

i tried the codes by Ivan Moala at
http://www.xtremevbtalk.com/showthre...8&page=2&pp=20
but user name returned null. (no errors, just blank MsgBox.)

and below returned my username, not the person's name who opened the file.

[vba]Msgbox(ActiveWorkbook.WriteReservedBy)[/vba]

any ideas?

hi, the user name will be coming from Tools -> Options -> General Tab
under username field, if it blank it will use the computer name instead

[mancubus]

thanks for the replies.

for clarification i must add related bit of my code...

[vba]
Sub DosyaAcUpdateKapa()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\test.xls")
If wb.ReadOnly Then
MsgBox wb.Name & " is Read-Only!"
MsgBox wb.WriteReservedBy
wb.Close Savechanges:=False
End If
'code
'code
End Sub
[/vba]


if the file is opened by another user and if i want to open dile file directly from its folder by double-clicking or file-open, i get File in Use warning.

test.xls is locked for editing

by 'name_of_user'

Open 'Read-Only' or, click 'Notify' to...


what i want is to get the 'name_of_user' string displayed in File in Use msg via VBA.

Jan: the file is for data entry and is not opened as Read-Only by users.
gnod: yes i get my user name as i defined in user name field of options-general.



so i understand, i can't get it by wb.WriteReservedBy

[mancubus]

ok.

i will try the GetLastUser sub by Brian Baulsom at

http://www.mrexcel.com/forum/showthread.php?p=2367992

with IsFileOPen function.

thanks....