vba - 如何获取使用特定共享工作簿的用户列表？

Question

我正在使用共享工作簿。有一个代码可以撤消 WB 共享，更新工作表中的数据，然后再次共享 WB。如果有用户连接到此 WB，他们将失去在 WB 上保存的能力，Excel 会要求他们以不同的名称保存 WB。

我的问题是如何获取当前正在使用 WB 的用户列表？

这样我就可以设置一个消息框，在有用户使用 WB 时发出警报，并让 WB 为所有人共享。

谢谢

Answer 1

尝试使用UserStatus Property [Excel 2003 VBA Language Reference] :

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.

示例

此示例创建一个新工作簿，并向其中插入有关将事件工作簿作为共享列表打开的所有用户的信息。

users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
    For row = 1 To UBound(users, 1)
        .Cells(row, 1) = users(row, 1)
        .Cells(row, 2) = users(row, 2)
        Select Case users(row, 3)
            Case 1
                .Cells(row, 3).Value = "Exclusive"
            Case 2
                .Cells(row, 3).Value = "Shared"
        End Select
    Next
End With