excel中VBA代码问题（高手进）

答案:3 悬赏:80

解决时间 2021-01-11 10:13

提问者网友：欺烟
2021-01-11 05:50

excel中VBA代码问题（高手进）

最佳答案

二级知识专家网友：青灯有味
2021-01-11 06:14

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.Pattern = xlNone
    Rows(Target.Row).Interior.Color = 49407
    Columns(Target.Column).Interior.Color = 49407
End Sub追问我想请问一下，我有部分单元格被保护限制，所以调试的时候，显示1004错误，但是保护限制不方便取消，怎么办？追答Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Interior.Pattern = xlNone
    Rows(Target.Row).Interior.Color = 49407
    Columns(Target.Column).Interior.Color = 49407
End Sub追问貌似修改后，不显示底色的。
实际上，如图片所示，我标示黄色的是未锁定的单元格，其余没有标注底色的是锁定单元格。

全部回答

1楼网友：行路难
2021-01-11 06:33

应该使用到鼠标点击的事件吧

2楼网友：第四晚心情
2021-01-11 06:27

代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.EntireColumn.Address = Target.Address Then
Cells.Interior.ColorIndex = xlNone
Exit Sub
End If
If Target.EntireRow.Address = Target.Address Then
Cells.Interior.ColorIndex = xlNone
Exit Sub
End If
Cells.Interior.ColorIndex = xlNone
Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 35
Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 20
End Sub
效果如下：
追问我想请问一下，我有部分单元格被保护限制，所以调试的时候，显示1004错误，但是保护限制不方便取消，怎么办？

我要举报

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

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