Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28998 / 76738

←次へ　｜　前へ→


	【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

≪