Key inventory VBA help needed

Hi Folks
I have this file attached which serves the purpose of a key inventory when it is loaned out and it is returned. I will need help on the VBA.

On the Scan here tab in cell A2, I will scan in the key number. In cell A4, I key in the staff ID number after i press a function or enter, in the tab called key inventory, The ID is indicated in column C against the key number. The date is timestamped on the key out in column E.

When i scan in the same key number and ID in scan here tab when the key is returned the date is timestamped in column F. I can setup a vlookup function for the name column D.

Any help will be greatly apprecaited.

Hi

I know the password. How do i remove it from the VBA editor to resubmit the file.