|
よろしくお願いいたします
Public Sub TEST01(wk_STR As String)
Workbooks.Open wk_STR 'ブックを開く
If ActiveWorkbook.ReadOnly = True Then
ActiveWorkbook.Close
Debug.Print wk_STR & " 他のユーザーが使用中です"
Exit Sub
End If
End Sub
上記TEST01では
マクロ終了後、そのブックの使用者が、ブックを閉じると
マクロを実行したPCに
ファイル使用可能 の ダイアログが出ます
これは、手動で開く場合
エクスプローラからファイル開いたとき
使用中のファイル のダイアログが表示されます
Book1.xlsは編集のためロックされています
で、通知のボタンを押してしまった状況になってしまいます
通知しないオプションは無いようです
下記TEST02では、遅いです
Sub TEST02()
Dim fff As String
Dim erck As Integer
fff = "\\HOGE\Book1.xls"
erck = 0
On Error GoTo errcheck
Open fff For Binary Lock Read Write As #1
Close #1
If erck = 1 Then
MsgBox fff & " は使用中です"
Else
Workbooks.Open Filename:=fff
End If
Exit Sub
'
errcheck:
erck = 1
Resume Next
End Sub
アドバイスありましたらよろしくお願いいたします
|
|