|
お久しぶりです、こんにちは。
koukaです。
いろいろ調べてみましたが、わからなかったので教えてください。
現在ある共有端末にExcelファイルがあり、
それをみんなが見に行っているのですが、
誰かが開いているときは、開けないようにしたいのです。
(読取専用時は開けないように)
Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "他の方が作業中ですので開けません。"
ThisWorkbook.Close
End If
End Sub
単純に開けないようにするなら、上記のようなマクロでいいのですが、
これだと、最初に『〜は編集の為ロックされています。使用者は〜です。』と、
出てきてしまいますので、まずこれを出さないようにする手段がありますでしょうか?
出来ればこのファイル一つでやりたいです。
それとメッセージボックスで"他の方が作業中ですので開けません。"と、
出した時ににそのExcelに設定してあるユーザー名を、
(ツール→オプション→全般のタブの中にあるユーザー名)
表示することは可能でしょうか?
それによって誰が開いているかを特定したいです。
以上ですが、よろしくお願いします。
|
|