Excel能判断后自动选择性锁定部分单元格么？问题在内容里

Melrose丶

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, t As Integer, arr()
i = Range("AM65536").End(xlUp).Row
j = 1
For t = 1 To i
If Cells(t, 6) = "待更新" Or Cells(t, 6) = "NG" Then
ReDim Preserve arr(j)
arr(j) = t
j = j + 1
End If
Next
If j = 1 Then
GoTo 100
End If
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
For a = 1 To UBound(arr)
Range(Cells(arr(a), 1), Cells(arr(a), 5)).Select
Selection.Locked = True
Next
ActiveSheet.Protect
100:
Exit Sub
End Sub


发现这样之后有列的单元格就不能实现了，这个应该怎么修改？
还有就是我由NG改成完成状态有的时候也不能编辑了

Melrose丶

帮我看下 如果是39列输入完成就可以编辑，如果输入是NG或者是待更新就不可以编辑