共有ファイルを開いているユーザー情報を取得する【UserStatusプロパティ】【ExcelVBA】

構文

Object.UserStatus (index1 , index2)

UserStatusプロパティのサンプルコード

Public Sub sample()
    '■共有ファイルを開く
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\VBA\sample.xlsx")
    
    '■ユーザー情報取得
    Dim i As Long
    For i = 1 To UBound(wb.UserStatus)
        Debug.Print wb.UserStatus(i, 1) 'ユーザー名　user
        Debug.Print wb.UserStatus(i, 2) '開いた日付  9/27/2021 11:46
        Debug.Print wb.UserStatus(i, 3) '種類        1(排他)2(共有)
    Next i
              
    '■共有ブックを閉じる
    wb.Close
    Set wb = Nothing
End Sub

注意点

• 読み取り専用で開いたブックの場合、エラーが発生します。
  実行時エラー ‘1004’:アプリケーション定義またはオブジェクト定義のエラーです。
• UserStatusプロパティはOption Base1にかかわらず、1からスタートです。

関連記事

• 一次元/二次元配列の要素数の最大値を取得する【Ubound関数】
  • 共有のエクセルファイルを 誰が開いたか記録する【ExcelVBA】