lock cells from within vba

i have some cells with functions codes applied to generate the output of it based on fixed cells input....how do i lock these cells from with vba so no one can edit them and it shud be in place from the time the file is opened

i tried the below code but nothing works

Please Login or Register  to view this content.

Try changing 'ActiveSheet' to 'Worksheets("Cal")'

i am still to edit the cell

Can you post a copy of the workbook?

maybe the sub is not getting applied hen the workbook is opened...m i supposed to add any other line so it applies on load

Copy and paste this into the Thisworkbook code module...

Please Login or Register  to view this content.

and this in a standard code module...

Please Login or Register  to view this content.

Then save the workbook, close it and then reopen it.

but it locks the whole sheet not just the selected cells