Excel中动态锁定单元格

Question

我有四列（A、B、C、D）。我的要求是每一行中只有一个单元格应该接受数据，其余单元格不应该接受数据（即其余三个单元格应该处于锁定模式）。

我该怎么做？

Answer 1

这是按照您的要求做的一种方法。 （或者至少我认为你在问什么。）

首先，解锁工作表中的所有单元格。默认情况下它们都处于锁定状态（尽管这在您真正保护工作表之前不会生效）因此您需要解锁它们才能开始，否则您将无法在任何地方输入任何数据一旦您保护了工作表床单。您可以手动执行此操作（在 2003 年：选择所有单元格，格式 > 单元格 > 保护 > 取消选中“锁定”）或使用 VBA，如下所示：

Sub UnlockAll()
    With Sheet1 ' Or whatever sheet you're working on
        .Unprotect
        .Cells.Locked = False
        .Protect
    End With
End Sub

以上只需要执行一次。

然后您必须使用Worksheet_Change 事件来动态锁定和解锁单元格。在工作表的模块中，编写以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.Unprotect
    If Not IsEmpty(Target) Then
        'Data was added in target cell. Lock its neighbours.
        Me.Cells(Target.Row, 1).Resize(, 4).Locked = True
        Target.Locked = False
    Else
        'Data was erased from target cell. Release its neighbours.
        Me.Cells(Target.Row, 1).Resize(, 4).Locked = False
    End If
    Me.Protect
End Sub

假设您在单元格 B2 中写入数据；这将锁定单元格 B1、B3 和 B4，以便无法输入任何数据。如果您稍后决定清除单元格 B2，那么这将解锁 B1、B3 和 B4。