[已解决]如果A列日期不是今天的日期，如何修改I列的数值，则提示输入口令（1234）才能修改。

frank6972980 · 发表于 2013-10-21 16:16

Book32.zip (1.49 KB, 下载次数: 5)

qcw811206 · 发表于 2013-10-21 16:38

本帖最后由 qcw811206 于 2013-10-21 16:51 编辑

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
If Selection.Offset(0, -8).Value <> "" Then
If IsDate(Selection.Offset(0, -8).Value) And Selection.Offset(0, -8).Value <> Date Then
a = Application.InputBox("mima")
If a <> "1234" Then
Cells(1, 1).Select
MsgBox "不要修改"
Exit Sub
End If
End If
End If
End If
End Sub

复制代码

frank6972980 · 发表于 2013-10-21 16:45

MsgBox ”不要修改“ 语法错误

qcw811206 · 发表于 2013-10-21 16:48

frank6972980 发表于 2013-10-21 16:45
MsgBox ”不要修改“ 语法错误

引号打错了，修改完了

frank6972980 · 发表于 2013-10-21 16:50

我不想鼠标点在单元格上就弹出密码框，而是在输入数据回车后再弹出框要如何修改？

qcw811206 · 发表于 2013-10-21 16:53

frank6972980 发表于 2013-10-21 16:50
我不想鼠标点在单元格上就弹出密码框，而是在输入数据回车后再弹出框要如何修改？

换成Worksheet_Change 就行了
但是你要在修正前记录单元格原来的数据
以便还原

frank6972980 · 发表于 2013-10-21 16:55

而且不输入密码也可以修改

qcw811206 · 发表于 2013-10-21 16:57

frank6972980 发表于 2013-10-21 16:55
而且不输入密码也可以修改

输入密码修改
不输入密码也修改

那就是弹出对话框？？

zjdh · 发表于 2013-10-21 17:01

本帖最后由 zjdh 于 2013-10-21 17:39 编辑

Book.rar (7.55 KB, 下载次数: 9)

frank6972980 · 发表于 2013-10-21 17:04

qcw811206 发表于 2013-10-21 16:53
换成Worksheet_Change 就行了
但是你要在修正前记录单元格原来的数据
以便还原

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 改为：Worksheet_Change？

		自动登录	找回密码
密码			注册

[已解决]如果A列日期不是今天 的日期，如何修改I列的数值，则提示输入口令（1234）才能修改。