您好，我正在尝试根据Excel其他工作表中的值锁定Excel工作表中的单元格

Question

I have tried various codes that seem to work perfectly for others but not in my case. Before i write any code the sheet, all the cells in my sheet appear as Locked anyways. I am stuck here and do not know what can be done here.

I tried this code but nothing seems to be locked,i can still do whatever i want in the sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = "Accepting" Then
        Range("B1:B4").Locked = False
    ElseIf Range("A1") = "Refusing" Then
        Range("B1:B4").Locked = True
    End If


End Sub

Answer 1

Locking a range will have no effect unless the sheet is also protected.

For instance Range("B1:B4").Locked = True won't work until you do YourWorksheet.Protect . You can unprotect it after by doing YourWorksheet.Unprotect .