Protect and Share
 

Is there a way to 'protect and share with password' a workbook that is
already structure protected, via VBA code?

ActiveWorkbook.Protect Password:="pass", Structu=True
ActiveWorkbook.ProtectSharing Filename:=Thisworkbook.name,
sharingpassword:="pass"

It lets me execute only one line, either first or second... If I do it
manualy via menus it works..

I found many questions like this one, but with no answer.. btw it's Excel
2003..


Thanx