Code to Recognize Read Only File

[erock24]

I have this code that opens up a file that I click on. Works great except when someone is already in file. How can I stop my code from erroring out if someone is in the file.

    ChDrive "E:\"
    ChDir "E:\2007 Work\Analytical Review\Operating Expenses"

    TheFile2 = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Open Current Month Operating Expense Review File")
    If TheFile2 = "False" Then
    OpenA.Activate
    ActiveWindow.Close
      Exit Sub
End If
    Workbooks.Open Filename:=TheFile2
    Set OpenB = Workbooks(Workbooks.Count)

 

[Clay Canvas]

Open workbook as Read Only

I believe if you add the additional code below beginning where you called out "Workbooks.Open..." when opening "TheFile2" it should open the file in the Read Only state and it shouldn't cause any problems if someone else has the file open for editing. I've used it here at my work and haven't had the issue you describe when coworkers have the file open while I'm running my macro for pulling in data.

Workbooks.Open(Filename:=TheFile2, UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True)

 

[erock24]

Actually, I want to open the file normally, when possible. If the file is in use and the only way I can open it is read only then I don't want to open it and I want my macro to skip that part and continue instead of error out.

Sorry I didn't make myself clear.