Thanks Jim a lot. I found another way too:

Application.ActiveWorkbook.Protect Structu=True, Winodws:=True

Cheers,
--Bita