如何在Excel中锁定或保护已输入数据的单元格？

假设你有一个工作表，只有某个范围的空白单元格需要输入数据，并且在完成数据输入后，你需要这些单元格自动锁定以防止再次更改。该如何实现呢？本文可以帮助你解决这个问题。

使用VBA代码在数据输入后锁定或保护单元格

使用VBA代码在数据输入后锁定或保护单元格

例如，特定的空白单元格范围是A1:F8。请按照以下步骤在Excel中输入数据后锁定这些单元格。

1. 首先，请通过选择这些单元格来解锁该范围，右键单击，然后在右键菜单中选择“设置单元格格式”，在“设置单元格格式”对话框中，取消勾选“保护”选项卡下的“锁定”框，最后点击“确定”按钮。参见截图：

2. 点击“审阅”>“保护工作表”，并指定一个密码来保护此工作表。

3. 右键单击工作表标签，从右键菜单中选择“查看代码”。然后将下面的VBA代码复制并粘贴到代码窗口中。参见截图：

VBA代码：在数据输入后锁定或保护单元格

Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A1:F8"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="123"
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:="123" 
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub

注意：在代码中，“A1:F8”是需要输入数据的区域；“123”是受保护工作表的密码。请根据需要进行修改。

4. 同时按下Alt + Q键关闭Microsoft Visual Basic for Applications窗口。

在完成向A1:F8范围内的单元格输入数据后，它们将被自动锁定。如果你尝试更改此范围内的任何单元格内容，将会收到一个提示对话框。参见截图：

相关文章：

• 如何在Excel中一次性锁定公式中的所有单元格引用？
• 如何在Excel中基于另一个单元格的值锁定或解锁单元格？
• 如何在Excel中将图片锁定到单元格内或单元格上？