Macro to protect workbook not working

Hello,

I need protected workbook but I still need to add sheets into it. What I've tried so far, is that I protect workbook (you can't add sheet if workbook is protected), then I put these two lines into code.

This one in the beginning
ActiveWorkbook.Unprotect

and this one at the end
ActiveWorkbook.Protect


Problem is everytime I run the code, protection goes off (?). What do I need to do that protection stays on when I add more sheets??

This one's the code that adds sheet;

Please Login or Register  to view this content.