![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルVBAを取り組んでいるのですが、
"A"のファイルでマクロを作動させて、"B"のファイルを開くマクロを組んでいます。
その時に誰かが"B"のファイルを開いていた場合強制的に読み取り専用で開いてしまいます。
読み取り専用で開こうとした場合には、マクロを停止させるようにしたいのですが、どういう形にしたら良いでしょうか?
ちなみに"B"ファイルを開いているマクロを下に乗せておきますので、変更しなければならない等がありましたら、教えていただけますと幸いです。
For Each wb In Workbooks
If InStr(wb.Name, "B") > 0 Then flag = True
Next wb
If flag = True Then
Else
Workbooks.Open Filename:="Z:\B.xls"
End If
No.2ベストアンサー
- 回答日時:
こんにちは。
>その時に誰かが"B"のファイルを開いていた場合強制的に読み取り専用で開いてしまいます。
つまり、ファイルが共有関係にあるのですね。その場合、このようにするのが一般的かもしれません。
Sub Test1()
Dim Fname As String
Dim myPath As String
Dim myFno As Integer
myPath = "Z:\"
Fname = "B.xls"
myFno = FreeFile
On Error Resume Next
Open myPath & Fname For Binary Lock Read Write As #myFno
Close #myFno
If Err.Number = 70 Then
MsgBox "すでに開いています。"
ElseIf Err.Number = 0 Then
Workbooks.Open myPath & Fname
End If
End Sub
お返事ありがとうございます
内容は半分ぐらいわからないですが、動きはばっちりです!!
自分もWendy02さんのように自由自在に使えるように、がんばります!
No.1
- 回答日時:
こんにちは。
ファイルが読み取り専用かどうかは、
開いてみないことには判らないような気がします。
実際に開いてみて、読み取り専用だったら
何もしないで閉じるのではダメなのでしょうか?
Sub Sample()
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:=Z:\B.xls")
If wb.ReadOnly Then wb.Close
Set wb = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Chromebookを使用しています。 ...
-
エクセルで誰が今開いているか...
-
USBの読み取り専用を解除する方法
-
EXCEL共有ファイルの使用中の相...
-
autocadが作業途中で読み取り専...
-
Excelのファイルが突然開けな...
-
ACCESSでデータ読み取り専用を...
-
CSV が読み取り専用になる。
-
Excel>PERSONAL.XLSが開かれて...
-
excel で通知と読み取り専用の...
-
読み取り専用にチェックが入っ...
-
Excelブックの共有をしているの...
-
何度やっても「読み取り専用」...
-
以下のサイトを参考にして、QR...
-
エクセルで他の人が開いたとき...
-
itunesでunknown albumになって...
-
ペイントで「上書き保存」する...
-
バッチファイルでExcelを読み取...
-
危険なファイルを正常にする方法
-
Wordを添付してメールで送ると...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで誰が今開いているか...
-
ACCESSでデータ読み取り専用を...
-
EXCEL共有ファイルの使用中の相...
-
Excelのファイルが突然開けな...
-
Excelブックの共有をしているの...
-
Chromebookを使用しています。 ...
-
Excel>PERSONAL.XLSが開かれて...
-
USBの読み取り専用を解除する方法
-
excel で通知と読み取り専用の...
-
SSDは読み取りによって劣化しま...
-
エクセルで他の人が開いたとき...
-
NASのフォルダが読み取り専用に...
-
autocadが作業途中で読み取り専...
-
PCで作ったwordをスマホで編集...
-
読み取り専用にチェックが入っ...
-
EXCELが勝手に「読み取り専用」...
-
バッチファイルでExcelを読み取...
-
Eclipse で同期するたびに読み...
-
エクセル共有ブックが読み取り...
-
ファイルの書き込み禁止属性を...
おすすめ情報