共有ブックを誰が開いているか調べる
従来の共有ブックを開いているユーザーと開始日時を表示します。
実行前に確認
- 現行のOneDrive共同編集の参加者一覧を取得する方法ではありません。読み取り専用ユーザーは含まれません。
1サンプルコード
Sub Sample3051()
Dim users As Variant, i As Long, s As String
If Not ThisWorkbook.MultiUserEditing Then
MsgBox "従来の共有ブックではありません。": Exit Sub
End If
users = ThisWorkbook.UserStatus
For i = 1 To UBound(users, 1)
s = s & users(i, 1) & " / " & users(i, 2) & vbCrLf
Next
MsgBox s
End Sub図で見る操作の流れ
イメージ図概念図：従来の共有ブックの利用者情報を読み取ります。
マクロ：共有確認
ThisWorkbookが従来の共有ブックか調べる
マクロ：一覧取得
UserStatusからユーザー名と開始日時を順に読む
結果
「ユーザー名 / 開始日時」をまとめて表示
従来の共有ブックでなければ終了。OneDrive共同編集の一覧ではなく、読み取り専用ユーザーも含みません。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。従来の共有ブック機能で共有済みの練習ファイルでのみ試します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3051内にカーソルを置いてF5で実行します。従来の共有ブックを開いているユーザーと開始日時を表示します。