1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
Function get_wbk_user(wbk As Workbook) As Variant
'=============================================================================
' List the users sharing the workbook
Subname = "Func: get_wbk_user"
Dim Shartyp As String, cnt_usr As Integer, rownum As Integer
Dim usr_status() As Variant, users As Variant
' Get the users informations
users = wbk.UserStatus
ReDim usr_status(UBound(users, 1), 3)
usr_status(0, 0) = "User name"
usr_status(0, 1) = "Date"
For cnt_usr = 1 To UBound(users, 1)
Select Case users(cnt_usr, 3)
Case 1
Shartyp = "Exclusive"
Case 2
Shartyp = "Shared"
End Select
' Assign to the array for the return
usr_status(cnt_usr, 0) = users(cnt_usr, 1)
usr_status(cnt_usr, 1) = DateValue(users(cnt_usr, 2))
usr_status(cnt_usr, 2) = TimeValue(users(cnt_usr, 2))
usr_status(cnt_usr, 3) = Shartyp
Next cnt_usr
get_wbk_user = usr_status
End Function |
Partager