让Excel的单元格只能输入一次的方法

307496746

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target <> "" Then
   Target.Locked = True
   ActiveSheet.Protect password:="123"
End If
If Target = "" Then
   ActiveSheet.Unprotect password:="123"
End If
End Sub

wcygr

一个单元格不能重输和删除，但是选择包含单元格的区域就能删除单元格的内容，如何修改程序，使选择包含单元格的区域也不能删除单元格的内容？