save as read only

[neomod]

I currently have a command button that will save the workbook with current date as filename. Is there anyway to have it save the file as read only? I was also thinking of mabye manipulating the file once it's saved but I quess that wouldn't work since you can't change the attributes of a currently open file.

 

[Jack in the UK]

Hi

Try adding and editing this :

ActiveWorkbook.SaveAs Filename:="C:My Documentstest macro delete.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=True, CreateBackup:=False
Range("A1").Select