E-Mail Named Range as a Password Protected Workbook

As part of our monthly routine at our youth football club, I would like to be able to e-mail my fellow committee members with details of all current members and, amongst other things, how much they have paid/owe in subscription fees.

I have the data that I wish to e-mail in a named range (All_Members) and have used Ron de Bruin's code (below) to be able to e-mail it but I have not been able to password protect it. The password would remain the same each month and I assume that a change of password would simply involve amending the VBA code where necessary.

HTML Code: 

Please could someone help with this.

Thanks in advance

I think this is all you need. Change the password to suit.

.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum, Password:="Secret"