ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

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

      2015/12/19

共有ファイルを開いているユーザー情報を取得

UserStatus プロパティは、ブックを共有ファイルとして開いている各ユーザーの情報を示す、2 次元配列を返します。値の取得のみ可能で、バリアント型(Variant)の値を使用します。


【書式】

object.UserStatus ( index1, index2 )


引数・戻り値

  • object  ・・・  対象となる Workbook オブジェクトを指定します。
  • index1  ・・・  各ユーザーを示すインデックス値を指定します( 1 から始まる 数値)。
  • index2  ・・・   1 から 3 の整数値を指定します。1 を指定すると ユーザー名、2 を指定すると ユーザーがブックを最後に開いた日付・時刻、3 を指定すると ファイルの種類 を取得することができます。また、3 を指定した場合、ファイルの種類が 排他 であれば、1 を、共有 であれば、2 を返します。

ブックを開いているユーザー数を取得するには、UBound 関数 を使用します。
(例)アクティブなブックを開いているユーザーの数
  UBound ( ActiveWorkbook.UserStatus )

読み取り専用で開いたブックの UserStatus プロパティを取得しようとするとエラーが発生します。



UserStatus プロパティ 使用例

サンプルVBAソース


実行結果

UserStatus プロパティ



 - ブック・シートの操作 , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

  関連記事

Paste メソッド 使用例_1
ワークシートにクリップボードの内容を貼り付ける(Paste メソッド)

Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …

余白・ヘッダー
印刷:余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する 余白を設定する単位は、pt(ポイント:約 0.03528 cm) …

アクティブプリンタの設定・取得
アクティブプリンタを変更(ActivePrinter プロパティ)

ActivePrinter プロパティ ActivePrinter プロパティを …

ワークシートを参照する(Sheets プロパティ)

Sheets プロパティ Sheets プロパティは、Sheets コレクション …

アウトライン記号の表示・非表示(DisplayOutline プロパティ)

アウトライン記号の表示・非表示(DisplayOutline プロパティ) Di …

ウィンドウの分割(Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ)

ウィンドウの分割と解除 ウィンドウ(ワークシート画面)を分割するには、Split …

印刷の用紙サイズを設定(PageSetup.PaperSize プロパティ)

PageSetup.PaperSize プロパティ PageSetup.Pape …

ProtectContents プロパティ 例
シートが保護されているか確認(ProtectContents プロパティ)

ProtectContents プロパティ ワークシートが保護されているかどうか …

SheetsInNewWorkbook プロパティ 使用例
ブック作成時のシート数の取得・設定(SheetsInNewWorkbook プロパティ)

SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …

ワークシートをアクティブにする・選択する(Activate, Select)

Activate メソッド・Select メソッド Activate メソッドは …