请老师给个VBA代码

方漠

建议这段代码，放在模块里，不要由工作表的Worksheet_Activate事件触发。


Private Sub Worksheet_Activate()
Rows("5:65533").Interior.ColorIndex = xlNone
Dim rng As Range
Set rng = Sheet4.Range("B65536").End(xlUp)
c = rng.Value
Set rng = Nothing
  For i = 5 To [A65536].End(xlUp).Row
  If Sheet2.Cells(i, 2) = c Then
    With Sheet2.Rows(i).Interior
        .ColorIndex = 8
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    End If
    Next
End Sub

加了保护可以先解保护后再重新加上保护。以下为代码示例：

ActiveSheet.Unprotect ("123")

ActiveSheet.Protect ("123")