Password protect and unprotect all sheets EXCEPT two named sheets

Hello all, I have searched and tried with my extremely limited VBA skills to adapt the below code to ensure two named sheets ('Watch Allocation' and 'Working sheet')will not be protected. The reason for the omission is that one named sheet 'Working sheet' (it is hidden) reads from others and if protected throws up a Run-time error 1004 due to protecting the 'Working Sheet'. I can have all sheets protected manually (large area are unlocked to allow data entry) and no errors will occur but when speeding up the protecting process via VBA gives that Run-time error.

Please Login or Register  to view this content.

So, the question is how can I omit two defined sheets into the above code? Many thanks for any assistance.

I did have it working so I thought but upon closing down and reopening it failed to work. Although the code supplied by 'stojko89' works in its own right I need to implement the unprotecting of my "Working sheet" into the code I supplied in my first post which to date I have failed miserably! I want 'super users' to be able to input the password via InputBox and not just run a macro to protect and unprotect so any saviours out ther that can make my code work I would be eternally grateful.