Creating a button to lock specific cells

The problem I'm facing is giving me a headache.

First of all, let me give you a brief idea of what I've done:

I locked all the cells by "protect sheet" option, and checked the "select unlocked cells" option.

But there's a specific cells that I want the users to fill and use, so I went to format cells - protection - unchecked the "lock" checkbox.

Whats the problem?

Simply, I want to create a multi buttons, each of these buttons responsible of locking specific area of cells. Its important that the users are not able to select the cells or unlock it after the button is pressed, unless they have the password I put.


I put this code, but its not working:

Private Sub CommandButton1_Click()

Range("B38:B39").Select

Selection.Locked = True

Selection.FormulaHidden = False

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

End Sub

thanks.