traima

With ActiveSheet
     .Unprotect Password:="justme"
       .Calculate
         .Cells.Select
       Selection.Locked = True
    .EnableSelection = xlUnlockedCells
  .Protect Password:="justme"
End With

Note:  you might want to lock the project also to prevent users from looking at
the code to get the password.

With your workbook open.

Alt + F11, CTRL + r

Right-click on your workbook/project and "Properties"

Select "Protection" tab and "lock project for viewing".

Enter a password.

Note:  workbook must be saved/closed and re-opened before the locking takes
effect.

Gord