Programmatically determining if workbook is opened as Read Only

[Barb Reinhardt]

I have a data extraction macro that I run monthly and it takes a while to
run, so I periodically open it in another Excel instance as Read Only during
the extraction to get an indication on how much is left to extract.
Unfortunately, I also have a workbook open event that asks if I want to run
the macro, which fires whether it's read only or not. I don't want this
message displayed if the workbook is opened as read only. Is there some way
to do that?

Thanks,
Barb Reinhardt

 

[Barb Reinhardt]

I found what I need. It's ActiveWorkbook.ReadOnly. Now why didn't I think
of that before I posted this?

Thanks anyway!
Barb Reinhardt

 

[Mike H]

Seems to work OK

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
MsgBox "This book is read only."
Else
MsgBox "Run"
'run your macro
End If
End Sub

Mike

 

[Tom Ogilvy]

Why not hold down the shift key while you open the workbook.

 

[Barb Reinhardt]

Tom,

Does it work that way when I open a new Excel instance and open the workbook
from the list of last edited files?

Thanks,
Barb Reinhardt

 

[Tom Ogilvy]

Yes. Once you have the mouse over the filename, hold down the shift key
until it has opened.