Workbook already open Error

[palmerk]

I am creating a new workbook that would enable a user other than myself to open the workbook and a macro to receive info based on an automatic update. They will need to "reopen it" several times prior to being done for the day. I am using formulas to take out info particular accounts to provide a better information but they will not need to save it.

I am running into this error message

"Workbook.xls is already open. Reopening will cause any changes you made to be discarded. Do you want to reopen Workbook.xls?" with yes and no as options.

Is there a way that I can write VBA to say yes?

 

[Blue Hornet]

This is the simplest code I could come up with to do what it seems that you want:

Private Sub Workbook_Open()

For Each w In Workbooks
    If w.Name = "Book3.xls" Then
        GoTo GetOutNow:
    End If
Next w

Workbooks.Open ("Book3.xls")
GetOutNow:
End Sub

The code runs when "this workbook" is opened.
It loops through the list of open workbooks to see if "Book3.xls" is open.
If it finds that it is, then it goes to GetOutNow and does ... nothing; it skips the Workbooks.Open command.
If it completes the loop without finding "Book3.xls" then it opens that file.

You'd probably want error trapping in case Book3.xls doesn't exist, or reference to the path name, etc., but this seems to do the simple thing you want: Open the file if it's not already open; do nothing if it is.

Substitute your names to suit.

 

[Fergus]

Sorry for delayed response, been away on summer leave. Your code looks OK to me (since it's the same as I use) but what do you mean by "The error came up on the code version" - where exactly is the error coming up and what error message are you getting?