如何在excel vba中的行之间锁定

I want to lock the in between row's of excel sheet depending the value of the two column's , I have following code with me but it's makes entire sheet protected.I want to lock the in between row's of excel sh