Question

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

我已经尝试了这个users = ActiveWorkbook.UserStatus，但这并不是我想要的，我只有一个用户＆＃34;我的名字＆＃34;即使有另一个用户。

因此，当我打开另一个用户已经打开的WorkBook时，我想获得该用户的名字。

使用VBA是否可行。

Answer 1

:)如果用Environ("Username")打开它，任何用户都会得到它的名字。转到另一台PC并检查它。 Environ（＆＃34;用户名＆＃34;）给出了当前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

如何使用VBA

1 个答案: