请老师给个VBA代码

jzyjs8680

请老师给个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")