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

I'm not sure which property lets you set that prompt, I'm sure there is one. You can turn off display alerts to go with the default value (which is yes) though:

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

Unfortunately the files don't save with the amended code... but this has saved heaps of time already - Thanks!