次の方法で共有


Workbook.UserStatus プロパティ (Excel)

ブックを共有リストとして開いている各ユーザーに関する情報を提供する、1 から始まる 2 次元の配列を返します。 読み取り専用のバリアント型 (Variant) の値。

構文

UserStatus

Workbook オブジェクトを表す変数。

注釈

2 つ目の次元の最初の要素はユーザー名、2 番目の要素はユーザーがブックを最後に開いた日付と時刻、3 番目の要素はファイルの種類を示します。ファイルの種類は、1 であれば排他、2 であれば共有を表します。

UserStatus プロパティの取得する値には、指定したブックを読み取り専用で開いているユーザーの情報は含まれません。

次の使用例は、作業中のブックを共有ファイルとして開いているすべてのユーザーの情報を、新しく作成したブックのワークシートに挿入します。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。