Macro Removes Password Protecting Sheet

[sbrnard]

The attached spreadsheet is used to assign a job number to new contracts. There are 2 macros - One to find a contract number in the list and the other to add a new contract number and assign it a job number.

The issue I have is when I run the macro to add a new contract number and assign it a job number, the password to protect the spreadsheet is no longer required. The spreadsheet is protected, but you simply have to select Unprotect Sheet to edit the spreadsheet.

What do I have to add to the VB code to reinstate the password after the macro is run?

Thanks!