Joe

well, this is fairly dramatic:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveWorkbook.ReadOnly Then
ActiveWorkbook.Saved = True
End If
End Sub

Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly Then
Cells.Interior.ColorIndex = 3
End If
End Sub

Of course the user would have to enable macros.

Regards

Trevor


"joe" wrote in message
...
I'm trying to see if there a way I change colors in an
Excel file if the file was open in read-only mode to gave
a warning to the user.