If Not ActiveWorkbook.ReadOnly Then
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
End If

Mike H. wrote:
The first line in this if-statement is incorrect. What would be the correct
syntax?

If ActiveWorkbook.Mode < xlReadOnly Then
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
End If