如何使用VBA获取Excel文件的当前读/写用户

我需要获得已打开的Woorkbook的读/写用户的名称。

我已经尝试过这个users = ActiveWorkbook.UserStatus但这不工作，因为我想，我只有一个用户“我的名字”即使有另一个用户。

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

这可能使用VBA。

Answer 1

:)如果用Environ("Username")打开它，任何用户都会得到它的名字。 转到另一台电脑，并检查它。 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