如何让单元格内填写东西后自动锁定，无法修改和删除，输入密码才可以修改删除

间断的菜鸟

我现在有代码是实现这个功能了，但是按删除键就没效果了，只是双击修改才可以实现，求帮助。。。。。。。

LMY123

http://club.excelhome.net/thread-388192-1-1.html

间断的菜鸟

LMY123 发表于 2016-9-23 12:00
http://club.excelhome.net/thread-388192-1-1.html

大神，你看看这个代码，能不能做成这个样的，弹窗提示输入密码可修改删除


Dim Str As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    '双击运行代码
    Dim Pass, s
    If Target.Cells(1).Value <> "" Then
        Pass = InputBox("请输入修改密码：", "提示")
        If Pass <> "141105" Then
            Application.EnableEvents = False
            Target.Cells(1) = Str
            Application.EnableEvents = True
            MsgBox "密码错误，不能修改", vbOKOnly, "警告"
            Target.Offset(1).Select
           Else
                Target.Cells(1).Select
           
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)   '自动运行代码
Str = Target.Cells(1).Value
End Sub

chenchong914

@LMY123:楼主，能留个联系方式吗？想咨询一个代码问题。如不方便，请你邮我一下也行。chenchongdn914@163.com