Excel VBA質問箱 IV

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

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


5021 / 13644 ツリー ←次へ | 前へ→

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

【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

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

【53030】Re:ブックの読取り専用のチェック
発言  ウーロン  - 07/12/12(水) 16:43 -

引用なし
パスワード
   追記です

上記TEST01で
ファイル使用可能 の ダイアログ
を出さない方法がわかれば
早くて軽そうかなと思っています

よろしくお願いいたします

【53059】Re:ブックの読取り専用のチェック
お礼  ウーロン  - 07/12/13(木) 10:15 -

引用なし
パスワード
   過去Q
▼【51265】読み取り専用ダイアログを表示させない方法
www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=51265;id=excel

【51271】Re:読み取り専用ダイアログを表示させな…
発言 ichinose - 07/9/7(金) 11:50 -
で解決しました
こちらも
Open mypath For Binary Lock Read Write As #fno
ですが
上記に比べると異常に早いです

もともと、コードよくわかっていないのでもう少し勉強してみます

取りあえず解決とさせて頂きます

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