Altering FIle Properties

[Marrick]

On the workbook's before close event I 'save-as' the file with a new
name.
If I open the file with the new name I would like to alter its
properties to 'read only'.
I envisage the opening line of code to look something like this:

If IsNot("OriginalFileName.xls") then

........? etc

Grateful thanks in advance to anyone who can help with this

 

[Bob Phillips]

Marrick,

If IsNot("OriginalFileName.xls") then
Workbooks.Open Filename:="OriginalFileName.xls", ReadOnly:=True

.......? etc


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)