Save Active workbook, Add a password via a prompt and stop creating backups

I don't think you can set the properties for saving as part of the close method, maybe save it and then close:

WbPassword = Inputbox("Please enter Password")
ActiveWorkbook.SaveAs Password:=WbPassword, CreateBackup:=False
ActiveWorkbook.Close