我想实现一个功能，就是根据前面某个单元格值的不同，可以让后面的一些单元格可以编辑或者不可编辑
譬如：A1=是，A2到A5可以编辑
A1=否，A2到A5不可以编辑
在网上看了是用VBA实现 能有大佬教一下吗？？

求不沉！

求不沉！

求不沉 哭了

首先把工作表全选，然后设置单元格格式，把锁定单元格框的勾去掉，然后选择a2到a5单元格，设置单元格格式把锁定单元格勾选然后运行代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If [a1] = "否" Then
ActiveSheet.Protect
ElseIf [a1] = "是" Then
ActiveSheet.Unprotect
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Select
If Selection.Locked = True Then
Selection.Locked = False
End If
If [a1] = "否" Then
Range("a2:a5").Select
If Selection.Locked = False Then
Selection.Locked = True
End If
ActiveSheet.Protect
ElseIf [b1] = "否" Then
Range("b2:b5").Select
If Selection.Locked = False Then
Selection.Locked = True
End If
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End Sub

你看我B1是否还是可以编辑 @qianboccp

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = "否" And [b1] <> "否" Then
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("a2:a5").Select
Selection.Locked = True
ActiveSheet.Protect
ElseIf [b1] = "否" And [a1] <> "否" Then
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("b2:b5").Select
Selection.Locked = True
ActiveSheet.Protect
ElseIf [b1] = "否" And [a1] = "否" Then
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("a2:b5").Select
Selection.Locked = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If [l1] = "否" And [l2] <> "否" And [l3] <> "否"Then
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("a1:k1").Select
Selection.Locked = True
ActiveSheet.Protect
ElseIf [l2] = "否" And [l1] <> "否" And [l3] <> "否"Then
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("a2:k2").Select
Selection.Locked = True
ActiveSheet.Protect
ElseIf [l3] = "否" And [l1] <> "否" And [l2] <> "否"Then
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("a3:k3").Select
Selection.Locked = True
ActiveSheet.Protect
ElseIf [l1] = "否" And [l2] = "否" And [l3] = "否"Then
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("a1:k3").Select
Selection.Locked = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End Sub
@qianboccp 我这边改成行了 然后写了三个。。。。怎么说呢这个要是有20 多行我就不行了

多了要用循环的
这个是第一列随意多少都可以
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, t As Integer, arr()
i = Range("IV1").End(xlToLeft).Column
j = 1
For t = 1 To i
If Cells(1, t) = "否" 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(2, arr(a)), Cells(5, arr(a))).Select
Selection.Locked = True
Next
ActiveSheet.Protect
100:
Exit Sub
End Sub

我这个循环语句不太看的懂 就按我的那个13楼的写法应该怎么写？@qianboccp

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, t As Integer, arr()
i = Range("IV1").End(xlToLeft).Column
j = 1
For t = 1 To i
If Cells(t, 8) = "否" 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
@qianboccp这样应该对的吧

还有就是我这边要满足 否或者是不行这两个结果 会导致不能编辑要加什么 or？

我知道了 我要的是 如果输入完成就可以编辑 输入其他的都不可以更新 @qianboccp

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, t As Integer, arr()
i = Range("IV1").End(xlToLeft).Column
j = 1
For t = 1 To i
If Cells(t, 39) = "待更新" Or Cells(t, 39) = "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), 38)).Select
Selection.Locked = True
Next
ActiveSheet.Protect
100:
Exit Sub
End Sub