I am creating a work sheet to be "Saved as" another name, my problem is I wish to protect it at the time of the "save as".

<snipet>
Worksheets("sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveCopyAs vFname 'vFname is new file name as Variant

Any help is appreciated!