需结合工作表保护与vba事件实现：先取消全表锁定、设置可编辑区域并添加至“允许用户编辑区域”，再启用带密码的工作表保护；然后在worksheet_change中检测输入并锁定单元格，在selectionchange中防止点击已填单元格；最后启用userinterfaceonly保护避免重复加解密。
如果您希望在Excel中实现用户于特定单元格输入内容后，该单元格立即被锁定且无法再次编辑，需结合工作表保护与VBA事件代码。默认情况下，Excel单元格处于“未锁定”状态，但锁定效果仅在启用工作表保护后生效。以下是实现此功能的具体步骤：
一、预先设置单元格锁定属性
Excel中所有单元格默认具有“锁定”格式，但该属性仅在工作表受保护时起作用。因此需先取消整表锁定状态，再对目标区域单独设为可编辑，其余区域保持锁定；随后启用保护，使VBA触发后的锁定行为可见。
1、全选工作表：按 Ctrl + A 选择全部单元格。
2、右键单击任意选中单元格，选择“设置单元格格式”，切换至“保护”选项卡。
3、取消勾选“锁定”复选框，点击“确定”。
4、选中您允许用户初始输入的单元格区域（例如A1:C10）。
5、再次打开“设置单元格格式”→“保护”选项卡，确保该区域的“锁定”复选框处于未勾选状态。
二、启用工作表保护并允许用户编辑指定区域
在VBA自动锁定前，必须使工作表处于受保护状态，同时将初始可编辑区域添加为“允许用户编辑区域”，否则用户无法完成首次输入。
1、切换至“审阅”选项卡，点击“允许用户编辑区域”。
2、点击“新建”，在“引用单元格”框中输入初始可编辑范围（如 $A$1:$C$10），可设置密码（非必需）。
3、点击“确定”后，返回“审阅”选项卡，点击“保护工作表”。
4、在弹出窗口中输入密码（如需后续取消保护），并确保“选定锁定单元格”和“选定未锁定的单元格”均勾选，点击“确定”。
三、插入Worksheet_Change事件代码
该事件在单元格值发生变更后立即触发，可用于检测是否为首次输入，并即时锁定该单元格。代码须置于对应工作表的代码模块中，不可放在普通模块。
1、右键点击工作表标签（如“Sheet1”），选择“查看代码”。
2、在右侧代码窗口中，粘贴以下VBA代码：
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
If Target.Cells.Count = 1 Then
If Target.Value "" And Target.Locked = False Then
Target.Locked = True
Me.Protect Password:="123" ' 密码需与保护时一致
Me.Unprotect Password:="123"
End If
End If
End If
End Sub
四、使用Worksheet_SelectionChange事件增强体验
当用户点击已填充的单元格时，该事件可主动取消其编辑状态，避免光标进入引发误操作。它不修改数据，仅控制焦点行为，作为Change事件的补充机制。
1、仍在同一工作表代码窗口中，在Worksheet_Change代码下方另起一段：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:C10")) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value "" Then
Application.EnableEvents = False
ActiveCell.Offset(0, 1).Select
Application.EnableEvents = True
End If
End If
End Sub
五、调整保护逻辑以支持连续输入
前述方法中每次锁定都执行一次“保护-取消保护”循环，可能引发闪烁或延迟。可改为一次性保护后，仅动态修改单元格Locked属性，再调用Protect方法刷新权限状态。
1、确保工作表初始即处于保护状态（使用密码“123”）。
2、修改Worksheet_Change中的关键段落为：
If Target.Value "" And Target.Locked = False Then
Target.Locked = True
Me.Protect Password:="123", UserInterfaceOnly:=True
3、在ThisWorkbook模块中添加自动初始化代码，确保每次打开文件时启用UserInterfaceOnly保护：
Private Sub Workbook_Open()
Sheets("Sheet1").Protect Password:="123", UserInterfaceOnly:=True
End Sub
