vbaで開いているExcelに読み取り専用を推奨するオプションをつけるサンプルコード

''''''''''''''''''''''''''''''''''''''''''
' 現在のブックに読み取り専用推奨するオプションをつける
''''''''''''''''''''''''''''''''''''''''''
Sub addReadOnlyOption()

rc = MsgBox(ActiveWorkbook.name & "に読み取り専用を推奨するオプションをつけますか？", vbOK + vbcalcel)
If rc = vbCancel Then
    Exit Sub
End If

Dim fullName As String: fullName = ActiveWorkbook.fullName

'読み取り専用を推奨するオプションをつける
ActiveWorkbook.ReadOnlyRecommended = True

End Sub

このVBAでは保存はしていないので、保存は別途行ってください。
その後ファイルを閉じて開き直すと、読み取り専用で開くか、を聞かれます。