How to Activate Filter in Protected Sheet
On Saturday, March 24, 2012 4:09:16 AM UTC-5, Moideen wrote:
I have a command button which runs some code for a filter ( recorded
macro).
When I Protecting Sheet It's Not Work Properly.
Sub exp1()
'
' exp1 Macro
'
'
Rows("3:3").Select
Range("C3").Activate
Selection.AutoFilter
Range("B3").Select
ActiveSheet.Range("$A$3:$P$62").AutoFilter Field:=2,
Criteria1:=RGB(255, _
153, 255), Operator:=xlFilterCellColor
Range("A21").Select
End Sub
--
Moideen'
with ActiveSheet
..EnableAutoFilter = True
..Protect Contents:=True, userInterfaceOnly:=True
..AutoFilter.Range("$A$3:$P$62").AutoFilter Field:=2, _
Criteria1:=RGB(255, 153, 255), Operator:=xlFilterCellColor
end with
If that doesn't work then
unprotect
autofilter
protect
|