Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28992 / 76732 ←次へ | 前へ→

【53029】ブックの読取り専用のチェック
お礼  ウーロン  - 07/12/12(水) 16:20 -

引用なし
パスワード
   よろしくお願いいたします

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

アドバイスありましたらよろしくお願いいたします
0 hits

【53029】ブックの読取り専用のチェック ウーロン 07/12/12(水) 16:20 お礼
【53030】Re:ブックの読取り専用のチェック ウーロン 07/12/12(水) 16:43 発言
【53059】Re:ブックの読取り専用のチェック ウーロン 07/12/13(木) 10:15 お礼

28992 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free