Office中国论坛/Access中国论坛

标题: 请老师给个VBA代码 [打印本页]

作者: jzyjs8680 时间: 2013-8-7 14:43
标题: 请老师给个VBA代码
本帖最后由 jzyjs8680 于 2013-8-7 14:45 编辑

请老师给个VBA代码

附件里是做好了的代码只是我想在我的工作表里的"总表"加了保护就不行了(密码为空),请老师们帮帮忙谢谢

作者: 方漠 时间: 2013-8-7 16:14
建议这段代码，放在模块里，不要由工作表的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")

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)