Show' Read Only' On A Form

[Dave]

Hi,
I have a spreadsheet at work that loads a form at start up. The form
covers the whole of the screen, so therefore cannot see the spreadsheet.
Is there away to show via a label on the form, if the file as been opened in
read or read only? as the user sometime updates the spreadsheet via the form
but forgets they are in read only.

Please help

Dave

 

[Tom Ogilvy]

Private Sub Userform_Initialize()
If ThisWorkbook.ReadOnly Then
Userform1.Label1.Caption = "Workbook is Read Only"
Else
Userform1.Label1.Caption = "Workbook is editable"
End If
End Sub

Regards,
Tom Ogilvy