如何獲得使用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