vba是否列出共享工作簿中的所有活动用户？

Sub ListActiveUsers()
    Dim wb As Workbook
    Dim user As UserStatus
    
    Set wb = ThisWorkbook
    
    ' 检查工作簿是否为共享状态
    If Not wb.MultiUserEditing Then
        MsgBox "工作簿未共享。"
        Exit Sub
    End If
    
    ' 遍历所有活动用户
    For Each user In wb.UserStatus
        MsgBox "用户名: " & user.Name & vbCrLf & "登录时间: " & user.LogonTime
    Next user
End Sub