VBA to auto-unlock a worksheet and then re-lock that sheet

Hi,
I have an Excel 2013 sheet with a button that saves a sheet to a new workbook. It removes formulas and the button but if I password protect the original sheet it doesn't work. I want to have the original sheet locked so that nobody can accidentally delete any of the formulas. Is there a way to auto-unlock the sheet within that same macro and then re-lock it or is there another way to make it work while protected?
My macro:

Please Login or Register  to view this content.

Thanks,
Foos Master
"Foosball is Therapy"

Thank you Very much DEC2HEX(3563),
That works perfectly when the sheet is just protected without a password and if I must use it without a password it will be fine but...is there a way to do the same thing when the sheet is password protected?

Thanks,
Foos Master
"Foosball is Therapy"

Partly Solved - See thread (http://www.excelforum.com/excel-prog...ml#post4010045) for other solution.

Thanks to All for the help,
Foos Master
"Foosball is Therapy"