单元格数据输入一次后修改需用密码

wuwei2128

1、黄色区域的单元格只能输入一次数据
2、修改则弹出输入密码的窗口

上面两个条件满足了
但是无法判断密码输入是否正确，请帮忙增加两个内容：
1、验证输入密码的正确性
2、如果密码错误，则在
           提示输入密码的窗口里面增加红色加粗字体：
                   "密码输入错误，请重新输入"
   此时：如果不知道密码，也可以取消输入密码，放弃更改

代码如下（请高手修改一下，谢谢！！！！！！），

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     If Intersect(Target, [a1:c10,e1:e10]) Is Nothing Then Exit Sub

         If Target.Value = "" Then

    ActiveSheet.Unprotect

    Else

    Dim b

    b = InputBox("请输入密码", "检查权限")

        If b = "123" Then

               End If

End If

End Sub

Aiy00

不会弄……

wuwei2128

此方法对整个工作表中指定的区域有效
Dim A
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1:b55555,d1:f55555]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If A <> "" Then
    b = InputBox("改变内容，请输入密码！")
    If b <> "123" Then
        MsgBox "密码错误，数据不能更改!"
        Target = A
    End If
    End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Cells(1, 1).Select
A = Target
End Sub

KKLLKLK

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
     If Intersect(Target, [a1:c10,e1:e10]) Is Nothing Then Exit Sub

         If Target.Value = "" Then

    ActiveSheet.Unprotect

    Else

    Dim b
Z:
    b = InputBox("请输入密码", "检查权限")
        If b = "123" Then
        Exit Sub
        Else
        If b = "" Then
        Cells(11, ActiveCell.Column).Select
        Exit Sub
        Else
        
        GoTo Z
End If
               End If

End If
End If
End Sub

wuwei2128

谢谢！谢谢！谢谢！

yiyunjj

如果我要设定的页面为sheet1，是不是打开VB后将代码输入SHEET1即可。 我试过，不行，不知道哪里出问题了，还请赐教。

lcjy11185

做个记号，到时用得着!

frank6972980

http://club.excelhome.net/thread-859178-1-1.html[求助] 修改今天以前的记录就要求输入密码 [复制链接]
这个问题请帮助

feiaoli

KKLLKLK 发表于 2011-11-11 16:45
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
     If  ...

留着用、有备无患

彤枫飘零

您这个代码，数据可以直接删除输入新的数据。不过我是菜鸟，只知道套用别人的