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

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:

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

Detect if workbook is readonly
 

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

Detect if workbook is readonly
 

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

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!!



Dunca wrote:

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:

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:

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

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!!




Dunca wrote:

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:

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:

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

Cheers

Duncan

"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