"Read only" warning display

[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.

 

[Smallweed]

Look at ReadOnly in VBA Help:

If ActiveWorkbook.ReadOnly Then
(code to make formatting changes you would like)
End If

 

[Stefi]

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:

 

[Stefi]

I forgot to add that apply Conditional formatting for all cells!
Stefi


„Stefi†ezt írta:

 

[Jock]

Works well.
Thanks Stefi