基于相邻单元格值可编辑/不可编辑的行中的单元格范围

Question

我需要什么：

• 当文本 Yes 输入到例如 A2 中时，我希望 B2:E2 变得无法编辑，但 A3:E7 范围仍然可以编辑。
• 当文本是输入例如 A3 时，我希望 B3:E3 变为不可编辑，除了 B2:E2 （上面的行）无法编辑。
• 上述功能将在工作表上持续大约 100 行。
• 当从单元格（例如 A2）中删除文本 Yes 时，只有 B2:E2 再次变为可编辑。 当将“是”输入回单元格时，它们将无法再次编辑。
• 如果 A 列中的单元格为空白，则该行对应的 B:E 列是可编辑的。

所附图像中的当前 State：单元格 A2:E7 已解锁，工作表中的所有其他单元格保持锁定 工作表的其余部分在没有密码的情况下受到保护/仅选择未锁定的单元格（但如果需要，可以包含密码）

Answer 1

下面的代码必须在 VBA 项目属性下的工作表 object 中输入。 我已经测试了代码，它似乎正在工作。 如果出现任何问题，请报告。 如果要扩展代码的工作范围，只需将 currSheet.Range("A2") 编辑为 currSheet.Range("A100") 等。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim currSheet As Worksheet
Set currSheet = ThisWorkbook.ActiveSheet

'declare source range - can be a cell, a range of cells, entire column, entirerow etc.
Dim sourceCell As Range
Set sourceCell = currSheet.Range("A2")
'declare range that will be locked/unlocked
Dim tarRange As Range
Set tarRange = currSheet.Range("B2:E2")

Application.ScreenUpdating = False
currSheet.Unprotect
If Target = sourceCell Then
    set_cellLockStatus sourceCell, "Yes", tarRange, True
End If
Application.ScreenUpdating = True
currSheet.Protect
End Sub

Public Sub set_cellLockStatus(source_rng As Range, sourceValueCondition As Variant, target_rng As Range, lockCell As Boolean)
'take source range, check if source condition is met - if yes, lock or unlock target range
source_rng.Locked = False
    With source_rng
        If source_rng.Value2 = sourceValueCondition Then
            target_rng.Locked = lockCell
            target_rng.Interior.ColorIndex = 8
        Else:
            target_rng.Locked = Not lockCell
            target_rng.Interior.ColorIndex = 0
        End If
    End With
End Sub

Answer 2

另一种解决方案。 工作表中的代码 - 更改事件：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then                   ' column A changed
        ThisRow = Target.Row                    'get row number
        If Target.Value = "Yes" Then
            ThisWorkbook.ActiveSheet.Unprotect  'unprotect sheet
            Range("B" & ThisRow).Locked = True
            Range("C" & ThisRow).Locked = True
            Range("D" & ThisRow).Locked = True
            Range("E" & ThisRow).Locked = True
            ThisWorkbook.ActiveSheet.Protect    'protect sheeet
        Else
            ThisWorkbook.ActiveSheet.Unprotect
            Range("B" & ThisRow).Locked = False
            Range("C" & ThisRow).Locked = False
            Range("D" & ThisRow).Locked = False
            Range("E" & ThisRow).Locked = False
            ThisWorkbook.ActiveSheet.Protect
        End If
    End If
    
End Sub