Macro to unlock sheet, copy to new workbook, then re-lock original sheet

Hi,
I have an Excel 2013 sheet with a button that unlocks a sheet and saves that sheet without the formulas and button, (values only), to a new workbook then locks the new sheet but it leaves the original sheet unlocked. I need a way for it to also re-lock the original sheet. I'm just trying to dummy proof this for someone that keeps deleting stuff.
Big thanks to those who have helped me get this far with it.
This is my macro so far:

Please Login or Register  to view this content.

Thanks,
Foos Master
"Foosball is Therapy"

gmr4evr1,
I just can't figure out how to do that. I keep getting errors with the ways I try to put the name in. I'm kinda new to this. My original workbook name is "FT" and the sheet name is "4T-Copy". I also need it to save with my password the way it saves the new sheet with: ActiveSheet.Protect "Password"
I have tried several different ways of naming it but just can't get it to work.
Thanks for any suggestions,
Foos Master

gmr4evr1,
Sorry, I just can’t get it to work. I tried using (Sheet8.Protect "Password") and (4T-Save.Protect “Password”) but I still get an error. The sheet is the 8th in line on that workbook but maybe not the 8th sheet I originally created in that workbook, not sure how to find the actual sheet number if it is the number of the sheet created.
Foos Master

It was sheet 17, my bad, I should have looked on the editor tree. BIG thanks. This is a Double Elimination Foosball Tournament Workbook for use in places where there is no internet access for using the Netfoos online software. Again, BIG thanks for the help.

Foos Master,
"Foosball is Therapy"

Blokeman,
The other thread solved 1 of 2 issues. I figured a new thread would solve the other. Sorry if I did something wrong, it was not intended. I marked the other thread solved and put the link to this thread for final solution. I hope that is OK.

Foos Master
"Foosball is Therapy"