excel 高亮显示当前选中单元格问题，在网上找到一段代码，期盼哪位大侠帮忙把里面的密码去掉，不会VB

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim mRng As Range, mR%, mC%, mPwd$
Set mRng = Range("a1:ad2000") '此处指定范围
mPwd = "1234" '此处指定工作表保护密码
If Selection.Cells.Count > 1 Or Intersect(mRng, Target) Is Nothing Then Exit Sub
ActiveSheet.Unprotect mPwd
mRng.Interior.ColorIndex = xlNone
Intersect(mRng, Rows(Target.Row)).Interior.Color = vbYellow
Intersect(mRng, Range("a1", Target), Columns(Target.Column)).Interior.Color = vbYellow
ActiveSheet.Protect mPwd
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim mRng As Range, mR%, mC%
Set mRng = [a1:ad2000]  '此处指定范围
If Target.Cells.Count > 1 Or Intersect(mRng, Target) Is Nothing Then Exit Sub
mRng.Interior.ColorIndex = xlNone
Union(Intersect(mRng, Rows(Target.Row)), Intersect(mRng, Range("a1", Target), Columns(Target.Column))).Interior.Color = vbYellow
End Sub

任务占坑

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息