Office TANAKA - Excel VBA(共有ブックを開いているユーザーを調べる)

Office TANAKA - Excel VBA(共有ブックを開いているユーザーを調べる): "Sub Sample3() Dim Users, buf As String, i As Long Users = ActiveWorkbook.UserStatus For i = 1 To UBound(Users) buf = buf & Users(i, 1) & Chr(9) & Users(i, 2) & Chr(9) & Users(i, 3) & vbCrLf Next i MsgBox buf End Sub"