Блокировка ячеек в VBA

Question

Я хочу, чтобы мой макрос блокировал только 3 ячейки [не разрешил пользователю редактировать] в строке 2, и для этого я написал ниже функцию.

Private Sub MasterHeaderLock(wksMaster As Worksheet) 
    wksMaster.Activate 
    ActiveSheet.Unprotect 
    wksMaster.Range(wksMaster.Cells(2, 7), wksMaster.Cells(2, 9)).Locked = True 
    ActiveSheet.Protect 
End Sub 

Но эта процедура блокирует весь лист. Пожалуйста, дайте мне знать, что нужно изменить.

Answer 1

Sub Test() 
Call MasterHeaderLock(Worksheets("Sheet1")) 
End Sub 

Private Sub MasterHeaderLock(wksMaster As Worksheet) 
    wksMaster.Cells.Locked = False 
    wksMaster.Unprotect 
    wksMaster.Range(wksMaster.Cells(2, 7), wksMaster.Cells(2, 9)).Locked = True 
    wksMaster.Protect 
End Sub