To apply a read-only recommendation to a workbook, set its ReadOnlyRecommended property to True
Sub readOnly Workbooks("Strategy.xls").ReadOnlyRecommended = True End Sub