"Read only" warning display

  • Thread starter Thread starter Jock
  • Start date Start date
J

Jock

If a user opens a workbook in read only mode is there a way using vba or the
like to have all the fonts and gridlines in grey? On occasion, people will
open a workbook as read only, then make changes because they've forgotten
it's read only and have to exit and start again.
 
Look at ReadOnly in VBA Help:

If ActiveWorkbook.ReadOnly Then
(code to make formatting changes you would like)
End If
 
A possible solution:
Insert this function in a standard module and apply Conditional formatting
with formula =ReadAttr() and gray font and border color:

Function ReadAttr()
ReadAttr = ThisWorkbook.ReadOnly
End Function

Regards,
Stefi

„Jock†ezt írta:
 
I forgot to add that apply Conditional formatting for all cells!
Stefi


„Stefi†ezt írta:
 
Back
Top