可通过VBA的Worksheet_Change或Worksheet_SelectionChange事件实现输入后自动锁定单元格：一、Change事件在输入时立即锁定指定区域；二、SelectionChange配合标记在离开单元格后锁定，提升稳定性；三、条件锁定仅对非空值执行锁定并支持清空后解锁。
如果您在Excel中希望用户在某个单元格输入数据后立即锁定该单元格，防止后续误修改，可通过VBA事件实现自动保护机制。以下是具体操作步骤：
一、启用工作表的Change事件监控
利用Worksheet_Change事件可实时捕获单元格内容变更，当检测到目标区域有输入时，立即执行锁定逻辑。此方法无需手动设置保护，由代码自动触发。
1、右键点击工作表标签，选择“查看代码”，打开VBA编辑器。
2、粘贴以下代码到对应工作表模块（如Sheet1）：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Me.Range("A1:C10")
If Not Intersect(Target, rng) Is Nothing Then
Application.EnableEvents = False
On Error GoTo CleanExit
Me.Unprotect Password:="123"
Target.Locked = True
Me.Protect Password:="123"
CleanExit:
Application.EnableEvents = True
End If
End Sub
3、将代码中"A1:C10"替换为实际需监控的区域地址。
4、将"123"替换为自定义工作表保护密码。
二、使用Worksheet_SelectionChange配合输入标记
该方法通过记录上次编辑位置，在用户离开单元格后锁定，避免因公式重算或批量粘贴导致误锁，提升稳定性。
1、在相同工作表模块中添加如下变量声明（置于代码顶部）：
Private LastEditedCell As Range
2、插入以下SelectionChange事件代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not LastEditedCell Is Nothing Then
Application.EnableEvents = False
On Error GoTo CleanExit
Me.Unprotect Password:="123"
LastEditedCell.Locked = True
Me.Protect Password:="123"
CleanExit:
Application.EnableEvents = True
End If
Set LastEditedCell = Nothing
If Not Intersect(Target, Me.Range("D5:F15")) Is Nothing Then
Set LastEditedCell = Target
End If
End Sub
3、确保工作表初始处于未保护状态，且"D5:F15"为需要自动锁定的目标区域。
三、基于单元格内容状态的条件锁定
仅当单元格输入非空值时才执行锁定，空值或清除内容后保持可编辑，适用于需支持反向编辑的场景。
1、在工作表模块中编写以下Change事件代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim watchRange As Range
Set watchRange = Intersect(Target, Me.Range("G2:K20"))
If Not watchRange Is Nothing Then
Application.EnableEvents = False
Me.Unprotect Password:="123"
Dim cell As Range
For Each cell In watchRange
If Not IsEmpty(cell.Value) And Trim(cell.Value) "" Then
cell.Locked = True
Else
cell.Locked = False
End If
Next cell
Me.Protect Password:="123"
Application.EnableEvents = True
End If
End Sub
2、调整"G2:K20"为实际业务所需监控范围。
3、注意：该方案会动态切换锁定状态，因此每次修改后均需重新解除并应用保护，不可省略Unprotect/Protect配对。
