Help neded! Password restricting/protecting copy file!

i think if im reading right you want the new file to be password protected so you can't open it without the password? try this.

ActiveSheet.Copy
    NewFN = "S:\Respiratory_Therapy\Team\Dalibor\ShiftReport" & Range("J2").Value & ".xlsx"
    ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook, Password:="password"
    ActiveWorkbook.Close
    Dim NextShiftReport