First of all many thanks for all the good stuff on this forum!
I'm using this forum for a while but can't find the answer to my problem this time, thanks for your help!
In my macro to protect I use:
ThisWorkbook.Protect Password:="BlaBla!", structure:=True, Windows:=True