Hallo Winni,
probier es mal mit diesem Code aus, din MsgBox Titel solltest Du dann in die Deutsche Schprache uebersetzen :-). Gruss kdosi.
Option Explicit
Option Base 1
'UserStatus property
'
'Returns a 1-based, two-dimensional array that provides information about each user who has the workbook open
'as a shared list. The first element of the second dimension is the name of the user, the second element is
'the date and time when the user last opened the workbook, and the third element is a number indicating the
'type of list (1 indicates exclusive, and 2 indicates shared). Read-only Variant.
'
'Remarks
'
'The UserStatus property doesn't return information about users who have the specified workbook open as read-only.
Public
Sub SharedUsrList()
Dim wrb As Workbook, users As Variant
Dim iRow As Integer, str As String
Set wrb = ActiveWorkbook
users = wrb.UserStatus
For iRow = 1 To UBound(users, 1)
str = str & "User : " & users(iRow, 1)
str = str & " , last opened : " & users(iRow, 2)
Select Case users(iRow, 3)
Case 1
str = str & " , type : " & "Exclusive" & vbCrLf
Case 2
str = str & " , type : " & "Shared" & vbCrLf
End Select
Next
MsgBox str, vbOKOnly, "Users who has this workbook open as a shared list"
End Sub