如何获得使用VBA

Question

我需要打开Woorkbook的读/写用户的名称的Excel文件的当前读/写用户。

我已经试过这users = ActiveWorkbook.UserStatus但是这并不因为我想工作，我得到的只有一个用户“我的名字”，甚至有其他用户。

所以，当我打开已经被另一个用户打开的工作簿时，我希望得到这个用户的名称。

是否可以使用VBA。

Answer 1

:)任何用户会得到它的名字写的，如果他Environ("Username")打开它。转到另一台PC并检查它。 Environ（“用户名”）给出了当前Windows用户的名称。

编辑：如果你正在谈论共享工作簿，这是代码：

Sub getListUsingUsers() 
    Users = ActiveWorkbook.UserStatus 
    MsgBox "Total Users using the current WorkBook: " & UBound(Users) 
End Sub 

EDIT2：

Sub GetUsers() 

Dim users   As Variant 
Dim l_counter  As Long 

users = ActiveWorkbook.UserStatus 
Debug.Print "Total Users using the current WorkBook: " & UBound(users) 

For l_counter = 1 To UBound(users) 
    Debug.Print users(l_counter, 1) 
Next l_counter 

End Sub