VBAを使用してExcelファイルの現在の読み取り/書き込みユーザーを取得する方法

Question

開いているWoorkbookの読み取り/書き込みユーザーの名前を取得する必要があります。

私はすでにこれを試しましたが、これはうまくいきません。別のユーザーがいるにもかかわらず、1人のユーザーしか「マイネーム」を取得しません。

他のユーザーが既に開いているWorkBookを開くときに、このユーザーの名前を取得したいとします。

VBAを使用すると可能ですか？

Answer 1

:)彼がEnviron("Username")でそれを開くと、どのユーザもその名前が書かれます。別のPCに移動して確認します。 Environ（ "Username"）は、現在の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