求助二次输入数值时要输入密码

CCY223220

做一个小孩子的加减法练习表，在算式后面填得数，只能输入一次，如果是错了要修正的话要输入密码，这样就能看出小孩的正确率，防止错了小孩反复修改

CCY223220

工作簿3.zip (12.11 KB, 下载次数: 7)

2015-12-4 15:14 上传

点击文件名下载附件

七彩屋

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Row < 4 Then Exit Sub
   
3. With Target
   
4.      If .Value <> "" Then
   
5.       PW = InputBox("修改内容请输入密码：")
   
6.       If PW <> "123" Then
   
7.       Cells(1, 1).Select
   
8.       Else
   
9.       Exit Sub
   
10.      End If
    
11.      End If
    
12. End With
    
13. End Sub

复制代码

七彩屋

工作簿333.rar (17.15 KB, 下载次数: 7)

2015-12-6 21:06 上传

点击文件名下载附件