i have specified a range as unlocked but when i run a macro to copy a sheet
then protect the destination sheet the autofilter function is disabled. can
i use a filter on an unlocked range in a protected sheet.


' unlock filter range
Range("W12:AL12").Select
Selection.Locked = False
Selection.FormulaHidden = False

' add autofilter
Range("W12:AL12").Select
Selection.AutoFilter

're protect data sheet
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

're-protect test WB
ActiveWorkbook.Protect Structu=True, Windows:=False

Hi Bob,

I have a feeling you will need to activate the autofilter.
The following snippet is from the Microsoft Help.

ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

HTH

Steven


-----Original Message-----
i have specified a range as unlocked but when i run a
macro to copy a sheet
then protect the destination sheet the autofilter
function is disabled. can
i use a filter on an unlocked range in a protected sheet.


' unlock filter range
Range("W12:AL12").Select
Selection.Locked = False
Selection.FormulaHidden = False

' add autofilter
Range("W12:AL12").Select
Selection.AutoFilter

're protect data sheet
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True

're-protect test WB
ActiveWorkbook.Protect Structu=True, Windows:=False


.

thanks for the help
"Dave Peterson" wrote in message
...
And .enableautofilter is one of those properties that excel doesn't
remember
when you reopen the workbook. I like to put this in Auto_open (or
workbook_open) so that the worksheet is protected the way I want when I
open it.

Steven Revell wrote:

Hi Bob,

I have a feeling you will need to activate the autofilter.
The following snippet is from the Microsoft Help.

ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

HTH

Steven

-----Original Message-----
i have specified a range as unlocked but when i run a
macro to copy a sheet
then protect the destination sheet the autofilter
function is disabled. can
i use a filter on an unlocked range in a protected sheet.


' unlock filter range
Range("W12:AL12").Select
Selection.Locked = False
Selection.FormulaHidden = False

' add autofilter
Range("W12:AL12").Select
Selection.AutoFilter

're protect data sheet
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True

're-protect test WB
ActiveWorkbook.Protect Structu=True, Windows:=False


.


--

Dave Peterson