If you mean that you want to open a workbook and then change it to
read-only, you can do it like this:
On Error Resume Next
ActiveWorkbook.Saved = True
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
The On Error is in case the workbook is already RO.
