输入数据自动锁定单元格，在这里我们需要使用vba来实现这个功能！
首先我们点击visualbasic，双击sheet1这个表格，然后将代码粘贴进去，将界面直接关闭即可，这样的话就设置完毕了，当我们输入数据点击回车后就会自动锁定单元格，想要更改删除数据就需要在审阅中取消工作表保护，在这里我们设置的密码是111，代码如下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheet1.Unprotect Password:="111"
If Target.Value <> "" Then
Target.Locked = True
Sheet1.Protect Password:="111"
End If
End Sub
在这里我们需要注意的是表格的实际名称sheet1这个名称必须与代码中的sheet1这个名称相互对应，否则的话不能达到效果。
