With ActiveWorkbook .SaveAs FileFormat:=xlNormal, Password:="YourPassword", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False .Close End With