Protect BPC with VBA code

Hi. How i can protect sheet with code VBA. I want to do etools---- work book option---- set workbook password... But i want this with code VBA.

Thanks.