VBA를 사용하여 Excel 파일의 현재 읽기/쓰기 사용자를 얻는 방법

Question

열려있는 Woorkbook의 읽기/쓰기 사용자 이름을 가져와야합니다.

나는 이걸 이미 시도했는데, 내가 원하는대로 작동하지 않는다. 다른 사용자가 있어도 "내 이름"한 명만 얻는다.

그래서 다른 사용자가 이미 연 WorkBook을 열면이 사용자의 이름을 얻고 싶습니다.

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