ActiveWorkbook.SaveAs Filename:= _
"C:\yourpath\yourname" & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="yourpword", _
ReadOnlyRecommended:=True

Note: user can always save as not read-only under a new name then delete
your copy and re-name theirs as original after making changes.


Gord Dibben MS Excel MVP


On Thu, 15 Jan 2009 10:11:01 -0800, des-sa
wrote:

please could someone help.
i have a macro which uses certain cell entries in a sheet in my workbook to
save the excel file as "psmith-chevrolet-quotenr1234-150109" for easy
identification afterwards. is it possible to add vb script that would lock
the file for editing after it has been saved the first time? the file is a
quote which is given to customers, and i want to prohibit employees from
altering another employee's quote afterwards. futhermore, is it possible to
incorporate password protection for editing?

thanks