I have an application where a number of network connected users that might
want to open it. If the application is already in use, then as normal the
new user is told it is in use and they can open it as 'read-only'. This is
OK but is there a way in VBA to detect that the file is open as read-only
which I can use to prevent changes and saving of this version of the file ?

TIA
Nigel




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---

"Nigel" wrote in message
...
I have an application where a number of network connected users that might
want to open it. If the application is already in use, then as normal the
new user is told it is in use and they can open it as 'read-only'. This
is
OK but is there a way in VBA to detect that the file is open as read-only
which I can use to prevent changes and saving of this version of the file
?

TIA
Nigel


I think you are looking for

Thisworkbook.Readonly

Geoff

Choose to any sample line of code

If ThisWorkbook.ReadOnly = False Then MsgBox "Read\write"
If ActiveWorkbook.ReadOnly = False Then MsgBox "Read\write"
If Workbooks("Book2.xls").ReadOnly = False Then sgBox "Read\write"


"Nigel" wrote in message
...
I have an application where a number of network connected users that might
want to open it. If the application is already in use, then as normal the
new user is told it is in use and they can open it as 'read-only'. This
is
OK but is there a way in VBA to detect that the file is open as read-only
which I can use to prevent changes and saving of this version of the file
?

TIA
Nigel




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet
News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000
Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
=---

Thanka guys for the tips. Secondary question, when the file is already
open, the message the use gets includes an option to choose either read-only
or read-olny and advise when remote user releases the file. Can the later
be intercepted ?

Cheers
Nigel

"JON JON" wrote in message
...
Choose to any sample line of code

If ThisWorkbook.ReadOnly = False Then MsgBox "Read\write"
If ActiveWorkbook.ReadOnly = False Then MsgBox "Read\write"
If Workbooks("Book2.xls").ReadOnly = False Then sgBox "Read\write"


"Nigel" wrote in message
...
I have an application where a number of network connected users that
might
want to open it. If the application is already in use, then as normal
the
new user is told it is in use and they can open it as 'read-only'. This
is
OK but is there a way in VBA to detect that the file is open as
read-only
which I can use to prevent changes and saving of this version of the
file
?

TIA
Nigel




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet
News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000
Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via
Encryption
=---






----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---