Is there some simple code for :

If workbook E:\temp.xls is already open by another user the
msgbox("Open Already") else _ continue....

--
Message posted from http://www.ExcelForum.com

Hi Ian,

Several ways. Here is a routine posted by John Green:

Sub IsWorkBookOpenDemo()
If IsWorkBookOpen("a.xls") = False Then Workbooks.Open "C:\a.xls"
If IsWorkBookOpen("b.xls") = False Then Workbooks.Open "C:\b.xls"
If IsWorkBookOpen("c.xls") = False Then Workbooks.Open "C:\c.xls"
End Sub


---
Regards,
Norman


"ianripping " wrote in message
...
Is there some simple code for :

If workbook E:\temp.xls is already open by another user then
msgbox("Open Already") else _ continue.....


---
Message posted from http://www.ExcelForum.com/

I tried this and get sub or function not define

--
Message posted from http://www.ExcelForum.com

You need the function also

Function IsWorkBookOpen(sWB)
On Error GoTo NotOpen
Workbooks(sWB).Activate
IsWorkBookOpen = True
Exit Function
NotOpen:
IsWorkBookOpen = False
End Function


--
Regards Ron de Bruin
http://www.rondebruin.nl


"ianripping " wrote in message ...
I tried this and get sub or function not defined


---
Message posted from http://www.ExcelForum.com/

I have tried this but I get the message back that the workbook isn'
open when it is on another network PC!

--
Message posted from http://www.ExcelForum.com