Hi

I was wondering if there were a simple way to detect if the workbook, when
opened, was opened in read-only mode? The reason for this is that I have
code in place to automatically time-out the book after 5 minutes of
inactivity, but I wouldn't want this to happen if it were opened as
read-only. I would just need to suppress the code in the workbook_open
handler (or insert an if statement to determine if it should be run).

Any help gratefuly received!

Duncan

You can check with something like:

If ThisWorkbook.ReadOnly = True Then
or
If Activeworkbook.ReadOnly = True Then

Depending on where the code is.

Duncan wrote:
>
> Hi
>
> I was wondering if there were a simple way to detect if the workbook, when
> opened, was opened in read-only mode? The reason for this is that I have
> code in place to automatically time-out the book after 5 minutes of
> inactivity, but I wouldn't want this to happen if it were opened as
> read-only. I would just need to suppress the code in the workbook_open
> handler (or insert an if statement to determine if it should be run).
>
> Any help gratefuly received!
>
> Duncan

--

Dave Peterson

Duncan,

This macro could go in the workbook open event to determione if it is read
only:-

Sub stantiate()
If ActiveWorkbook.ReadOnly Then
MsgBox "Read-only" '<Don't time out
Else
MsgBox "Read & Write" '<Timeout
End If
End Sub

Mike

"Duncan" wrote:

> Hi
>
> I was wondering if there were a simple way to detect if the workbook, when
> opened, was opened in read-only mode? The reason for this is that I have
> code in place to automatically time-out the book after 5 minutes of
> inactivity, but I wouldn't want this to happen if it were opened as
> read-only. I would just need to suppress the code in the workbook_open
> handler (or insert an if statement to determine if it should be run).
>
> Any help gratefuly received!
>
> Duncan

Thanks guys - i knew it'd be something simple!

Cheers

Duncan

"Mike H" wrote:

> Duncan,
>
> This macro could go in the workbook open event to determione if it is read
> only:-
>
> Sub stantiate()
> If ActiveWorkbook.ReadOnly Then
> MsgBox "Read-only" '<Don't time out
> Else
> MsgBox "Read & Write" '<Timeout
> End If
> End Sub
>
> Mike
>
> "Duncan" wrote:
>
> > Hi
> >
> > I was wondering if there were a simple way to detect if the workbook, when
> > opened, was opened in read-only mode? The reason for this is that I have
> > code in place to automatically time-out the book after 5 minutes of
> > inactivity, but I wouldn't want this to happen if it were opened as
> > read-only. I would just need to suppress the code in the workbook_open
> > handler (or insert an if statement to determine if it should be run).
> >
> > Any help gratefuly received!
> >
> > Duncan

OK, Does anyone know how to make this work in Excel 2007 when opening files from SharePoint? I get false in response to either (active or this) regardless of the status of the file.

This worked just fine when opening from the same library with Excel 2003, so I could error trap to save the file and clear the read-only status. Excel 2007 doesn't trigger the trap!!



Dunca wrote:

RE: Detect if workbook is readonly
13-Jul-07

Thanks guys - i knew it'd be something simple!

Cheers

Duncan

"Mike H" wrote:

Previous Posts In This Thread:

On Friday, July 13, 2007 6:50 AM
Dunca wrote:

Detect if workbook is readonly
Hi

I was wondering if there were a simple way to detect if the workbook, when
opened, was opened in read-only mode? The reason for this is that I have
code in place to automatically time-out the book after 5 minutes of
inactivity, but I wouldn't want this to happen if it were opened as
read-only. I would just need to suppress the code in the workbook_open
handler (or insert an if statement to determine if it should be run).

Any help gratefuly received!

Duncan

On Friday, July 13, 2007 7:15 AM
Dave Peterson wrote:

Re: Detect if workbook is readonly
You can check with something like:

If ThisWorkbook.ReadOnly = True Then
or
If Activeworkbook.ReadOnly = True Then

Depending on where the code is.

Duncan wrote:

--

Dave Peterson

On Friday, July 13, 2007 7:18 AM
Mike wrote:

Duncan,This macro could go in the workbook open event to determione if it is
Duncan,

This macro could go in the workbook open event to determione if it is read
only:-

Sub stantiate()
If ActiveWorkbook.ReadOnly Then
MsgBox "Read-only" '<Don't time out
Else
MsgBox "Read & Write" '<Timeout
End If
End Sub

Mike

"Duncan" wrote:

On Friday, July 13, 2007 8:00 AM
Dunca wrote:

RE: Detect if workbook is readonly
Thanks guys - i knew it'd be something simple!

Cheers

Duncan

"Mike H" wrote:


Submitted via EggHeadCafe - Software Developer Portal of Choice
Javascript Martin Fractals with IE and VML
http://www.eggheadcafe.com/tutorials...in-fracta.aspx

OK, Does anyone know how to make this work in Excel 2007
when opening files from SharePoint? I get false in
response to either (active or this) regardless of the
status of the file.

This worked just fine when opening from the same library
with Excel 2003, so I could error trap to save the file
and clear the read-only status. Excel 2007 doesn't
trigger the trap!!




Dunca wrote:

RE: Detect if workbook is readonly
13-Jul-07

Thanks guys - i knew it'd be something simple

Cheer

Dunca

"Mike H" wrote:

Previous Posts In This Thread:

On Friday, July 13, 2007 6:50 AM
Dunca wrote:

Detect if workbook is readonly
H

I was wondering if there were a simple way to detect if the workbook, when
opened, was opened in read-only mode? The reason for this is that I have
code in place to automatically time-out the book after 5 minutes of
inactivity, but I wouldn't want this to happen if it were opened as
read-only. I would just need to suppress the code in the workbook_open
handler (or insert an if statement to determine if it should be run)

Any help gratefuly received

Duncan

On Friday, July 13, 2007 7:15 AM
Dave Peterson wrote:

Re: Detect if workbook is readonly
You can check with something like

If ThisWorkbook.ReadOnly = True The
o
If Activeworkbook.ReadOnly = True The

Depending on where the code is

Duncan wrote

-

Dave Peterson

On Friday, July 13, 2007 7:18 AM
Mike wrote:

Duncan,This macro could go in the workbook open event to determione if it is
Duncan

This macro could go in the workbook open event to determione if it is read
only:

Sub stantiate(
If ActiveWorkbook.ReadOnly The
MsgBox "Read-only" '<Don't time ou
Els
MsgBox "Read & Write" '<Timeou
End I
End Su

Mik

"Duncan" wrote:

On Friday, July 13, 2007 8:00 AM
Dunca wrote:

RE: Detect if workbook is readonly
Thanks guys - i knew it'd be something simple

Cheer

Dunca

"Mike H" wrote:

On Wednesday, January 13, 2010 8:26 AM
Dean Barkenhagen wrote:

This doesn't work in 2007!
OK, Does anyone know how to make this work in Excel 2007 when opening files from SharePoint? I get false in response to either (active or this) regardless of the status of the file.

This worked just fine when opening from the same library with Excel 2003, so I could error trap to save the file and clear the read-only status. Excel 2007 doesn't trigger the trap!!


Submitted via EggHeadCafe - Software Developer Portal of Choice
Document Compatibility in Internet Explorer 8
http://www.eggheadcafe.com/tutorials...bility-in.aspx