vbaで読み取り専用時にユーザー名を表示させたい

Question

vbaであるエクセルファイルを開く際、読み取り専用だったら処理を中断させるように実装しているのですが、誰が開いているかユーザー名を表示させることは可能でしょうか？

vbaではなく手動で、誰かが開いているエクセルファイルを開くと、ユーザー名が表示される仕様をvbaでも実装したく色々調べてみたのですが、見つからず質問させて頂きました。

Comments

[Y.H.]

>あるファイル
がExcelファイルであれば、タグにExcelを追加してください。

[Tetsuya3456]

遅くなりすいません。
先程つけました！
ご指摘ありがとうございますm(_ _)m

[Zuishin]

「あるファイル」ではなく「テキストファイル」「画像ファイル」と書いてください。ブックではないんでしょう？

[Tetsuya3456]

あるファイルはエクセルファイルのことです。わかりづらく申し訳ありません。追記しておきました。

[Zuishin]

では通常のエクセルというのは何ですか？

[Tetsuya3456]

vbaでエクセルファイルを開いた場合ではなく、手動でエクセルファイルを開いた場合という意味合いでした。

Answer 1

あるExcelファイルにvbaを仕込みます。

Excelファイルオープン時にテキストファイルを生成して
WshNetworkオブジェクトを利用して、コンピュータのユーザー名を書き込みます。
読み取り専用であれば、テキストファイルからユーザー名を取得すればよいです。
ファイルを閉じる時にテキストファイルは削除します。
該当Excelファイルをマクロを有効にして開かなければならないので、
ユーザーが意識しなくてもマクロを有効で開くようにvbscriptを利用してExcelを開いてもらっています。
強制的に「マクロ有効」で開かせる。

Private Sub Workbook_Open()

    Dim Path As String
    Path = ThisWorkbook.Path & "\user.txt"
    If Not ActiveWorkbook.ReadOnly Then  '読み取り専用でない場合
        Dim objNetWork As Object
　　　　Set objNetWork = CreateObject("WScript.Network")
        Dim FSO As Object
        Set FSO = CreateObject("Scripting.FileSystemObject")
        With FSO.CreateTextFile(Path)
            .WriteLine objNetWork.UserName
            .Close
        End With
        Set objNetWork = Nothing
        Set FSO = Nothing
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'***********************************************
'   ファイルを閉じる際テキストファイル削除
'     
'***********************************************
    Dim Path As String
    Path = ThisWorkbook.Path & "\user.txt"
    If Not ActiveWorkbook.ReadOnly And Dir(Path) <> "" Then
        Kill Path
    End If
End Sub

    '読み取り専用の場合

    Dim Path As String
    Path = ThisWorkbook.Path & "\user.txt"
    If Dir(Path) <> "" Then
        Open Path For Input As #1
        Dim buf As String
        Line Input #1, buf
        MsgBox "ユーザー：" & buf & "が使用中"
        Close #1
    End If

Comments

[Tetsuya3456]

ご回答ありがとうございます！返信が遅れてしまい、大変申し訳ありません。
ご提示頂いたやり方を試してみたいと思います。ありがとうございます！

Answer 2

下記が参考になるかな？

共有ファイルを開いているユーザー情報を取得（UserStatus プロパティ） | ExcelWork.info

Comments

[Tetsuya3456]

遅くなりすいません。
上記の方法も試しましたが、共有ファイルではないため、エラーが表示されました。