Show' Read Only' On A Form

  • Thread starter Thread starter Dave
  • Start date Start date
D

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
 
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
 
Back
Top