Save as Read only
 

Hi, I need a piece of code that can save a file over a read only file and
save as a read only, but not have a message that gives you a choice of
opening as a read only or not (If that makes any sense)
I have tried this, but doesnt work:
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="E:\Desktop\Test.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=True
ActiveWindow.Close

Help greatly appreciated