在修改需要密码的基础上增加：鼠标选中某单元格，实现所在行与列高亮颜色显示

ck1668 · 发表于 2018-6-27 20:09

各位大侠，

前几天yylucke大侠帮忙做了一个“只能输入，修改需要密码”的代码，现在想在他的基础上，增加：选中某单元格，实现所在行与列高亮颜色显示。
两个功能的代码不知道要怎样修改，才能同时实现，有劳高手们帮忙，非常感谢！

只能输入，修改需要密码.7z (8.67 KB, 下载次数: 3)

选中某单元格，实现单元格所在行与列高亮颜色显示
　Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 10
Columns(Target.Column).Interior.ColorIndex = 10
End Sub

ck1668 · 发表于 2018-6-28 08:37

有没有哪位高手会合并代码，帮忙合并一下，感谢！

ivccav · 发表于 2018-6-28 08:54

你就差一步了，把那三行代码复制进去即可：

见附件：

只能输入，修改需要密码.zip (10.54 KB, 下载次数: 10)

ck1668 · 发表于 2018-6-28 09:38

ivccav 发表于 2018-6-28 08:54
你就差一步了，把那三行代码复制进去即可：

见附件：

我不会VBA，真的太感谢了

ck1668 · 发表于 2018-6-28 11:59

ivccav 发表于 2018-6-28 08:54
你就差一步了，把那三行代码复制进去即可：

见附件：

ivccav大侠，再请教一下，工作表好像不能被保护，一旦保护了，就出现错误，能不能在保护工作表的情况下，依然能实现鼠标所在行与列高亮颜色显示，感谢！

ivccav · 发表于 2018-6-28 14:06

ck1668 发表于 2018-6-28 11:59
ivccav大侠，再请教一下，工作表好像不能被保护，一旦保护了，就出现错误，能不能在保护工作表的情况下， ...

工作表保护时，还能高亮显示，很简单，在保护工作表时设置一下即可：

QQ图片20180628130532.png

但其他方面，你想得太简单了。你保护了工作表，你的任何编辑都被禁止，那位大神帮你写的代码根本没有可能运行到。你必须设定一个可编辑区域，比如A到N列，在这个区域内，第一次编辑时，输入可编辑区域的保护密码(后续编辑不需密码，除非文件关闭又重新打开。当然，可编辑区域的密码可以留空不设置)，然后，那位大神的代码才能被运行到。这时，有三个密码：工作表保护密码(可为空)，可编辑区域保护密码(可为空)，单元格编辑保护密码。

QQ图片20180628132245.png

设定可编辑区域的程序（设定可编辑区域【密码可不设置】，并保护工作表）：

QQ图片20180628135300.png

只能输入，修改需要密码.zip (13.02 KB, 下载次数: 2)

ck1668 · 发表于 2018-6-28 14:21

ivccav 发表于 2018-6-28 14:06
工作表保护时，还能高亮显示，很简单，在保护工作表时设置一下即可：

谢谢你这么详细的解说，想再请教你一下，刚发现高亮的颜色不是原来的颜色了，在哪里可以更改高亮的颜色，怎样更改，感谢！

ivccav · 发表于 2018-6-28 14:39

ck1668 发表于 2018-6-28 14:21
谢谢你这么详细的解说，想再请教你一下，刚发现高亮的颜色不是原来的颜色了，在哪里可以更改高亮的颜色， ...

修改RGB()的值就行了，我给一个颜色对照表给你，你设置为需要的颜色即可。

你原来的颜色是纯色，颜色太深了，我的电脑看起来不合适，于是改了一下。

QQ图片20180628142345.png

如果已解决问题，可评分：

QQ图片20180628142508.png

只能输入，修改需密码.zip (29.11 KB, 下载次数: 6)

ck1668 · 发表于 2018-7-9 15:39

ivccav 发表于 2018-6-28 14:39
修改RGB()的值就行了，我给一个颜色对照表给你，你设置为需要的颜色即可。

你原来的颜色是纯色， ...

你好，上次你帮我做的代码现在出问题了，估计是我设置的公式函数太多，极有可能是条件函数问题，我刚才另外发帖了，看来只有你能帮我解决，麻烦你帮我看一下，感谢！

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

[求助] 在修改需要密码的基础上增加：鼠标选中某单元格，实现所在行与列高亮颜色显示

评分