Protect / Unptotect Password when I run a Macro

I have the below code in my sheet and the program runs well. The problem I have is, when I choose the second criteria, the page ( Name Check ) unprotects and does not protect again... Criteria 1, works well ( Name Check - Group)

Please help.

Am having the code in a notepad and not posting here as I do not know how to code tag...am sorry.

https://drive.google.com/file/d/0B14...it?usp=sharing

Place this at the top of your code

ActiveSheet.Unprotect "Password"

Then this at the end

ActiveSheet.Protect "Password"

Originally Posted by djfatboyfats

Place this at the top of your code

ActiveSheet.Unprotect "Password"

Then this at the end

ActiveSheet.Protect "Password"

Thanks. I have tried that and it works only for the 1st 'IF' criteria, and un protects for the 2nd 'IF' criteria and does not protect it back.

Do you have a sample file I can look at?