Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "This workbook is read-only"
End If
End Sub

This is workbook event code.
To input this code, right click on the Excel icon on the worksheet
(or next to the File menu if you maximise your workbooks),
select View Code from the menu, and paste the code


--
HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"tweacle" wrote in message
...

I have a networked workbook. 5 people input data into it. What the
problem is when its opened as "read only" its not noticed and all data
input then when come to save its noticed its read only and book has to
be closed loosing all data input.

Is there anyway that a message box can appear saying its read only when
opened as read only so it stops putting in data then realising.


--
tweacle