Excel VisualBasic Script

Sub readOnly
    Workbooks("Strategy.xls").ReadOnlyRecommended = True
End Sub