要求：输入或删除“禁止输入”必须输入密码！

wzpis · 发表于 2018-7-29 16:37

输入或删除“禁止输入”必须输入密码！

wzpis · 发表于 2018-7-29 16:40

要求：输入或删除“禁止修改”，必须输入一次密码（不用每行输）

BenjaminToo · 发表于 2018-7-29 18:53

这个附件中的例子有点熟悉啊~

BenjaminToo · 发表于 2018-7-29 19:01

本帖最后由 BenjaminToo 于 2018-7-29 19:27 编辑

复制代码

修改了一下，密码1234

xinlan6 · 发表于 2018-7-29 19:40

BenjaminToo 发表于 2018-7-29 19:01
修改了一下，密码1234

老师好，我有个问题请教
假如本例中没有E列，但是将禁止修改的单元格的底色设置为灰黑色或红色
现在要求将单元格底色设置为灰黑色或红色的，禁止修改，只有输入密码方可修改
请问该如何修改vba，谢谢！

BenjaminToo · 发表于 2018-7-29 20:17

xinlan6 发表于 2018-7-29 19:40
老师好，我有个问题请教
假如本例中没有E列，但是将禁止修改的单元格的底色设置为灰黑色或红色
现在要 ...

言重了，我也是学生，大家一起交流学习，代码在下楼，你看是不是这个意思

BenjaminToo · 发表于 2018-7-29 20:18

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Column = 5 Then Exit Sub
Application.EnableEvents = False
If Range("e" & Target.Row).Interior.Color = RGB(192, 192, 192) Or RGB(255, 0, 0) Then
MsgBox "此行数据禁止修改!"
pw = InputBox("请输入密码")
If pw = "1234" Then
Else
Application.Undo
End If
End If
Application.EnableEvents = True
If pw = "1234" Then
pw = "1234"
Application.EnableEvents = False
Else
pw = ""
End If
End Sub

复制代码

wzpis · 发表于 2018-7-30 01:04

老师辛苦，我想要的是其他列不需要密码，受E列是否输入“禁止修改“控制，但”E列输入或清除：“禁止修改”需要密码

xinlan6 · 发表于 2018-7-30 06:53

BenjaminToo 发表于 2018-7-29 20:18

老师，您谦虚了！谢谢回复指点昨天可能是我表述不清楚
我的意思是E列没有数据
A到D列中禁止修改的行设置为底色是灰黑色或者红色，如图
如何在修改这些行的数据时自动弹出提示

BenjaminToo · 发表于 2018-7-30 09:08

xinlan6 发表于 2018-7-30 06:53
老师，您谦虚了！谢谢回复指点昨天可能是我表述不清楚
我的意思是E列没有数据
A到D列中禁止修改的行设 ...

楼上的代码应该是可以了，我的灰黑色是RGB192,192,192

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

[求助] 要求：输入或删除“禁止输入”必须输入密码！