EXCELマクロ実行後、読み込み専用になってしまう

質問

EXCELマクロ実行後に読み取り専用になってしまう。
＜内容＞
　１つのファイル（Ａ）に他の複数のファイル（Ｂ，Ｃ・・・）内のシートを取り込んだ後、更新せずに終了させています。
＜困ったこと＞
　そのマクロを実行したあと上記のファイルＢ，Ｃ・・・が読み取り専用になってしまいます。ＰＣを再起動すると解除されます。
　読み取り専用にならないようにする方法はありますでしょうか。
　ご指導のほど、よろしくお願いいたします。
＜参考＞
For Each fName In FSO.GetFolder(MyFolder).Files
If FSO.GetExtensionName(fName) = "xls" And _
　FSO.GetBaseName(fName) <> "ファイルＡ" Then
　Set wBook = Workbooks.Open(fName)
　　For 番号 = 1 To Worksheets.Count
　wBook.Worksheets(番号).Copy _
　after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
　　Next 番号
　　　wBook.Close True
　　End If
Next

回答No.1

qualheart · ベストアンサー

試してないのでどうして読取り専用になるのかはわかりませんが、
Set wBook = Workbooks.Open(fName)
を
Set wBook = Workbooks.Open(fName,0,True)
にして、最初から読み取り専用で開いてコピーしてみたらどうでしょう？

お礼

実際に盛り込んで動かしてみていますが、今のところ再現はしていません。発想の転換ですよね・・・。ありがとうございました。