locking sheets

[ellac]

Hi Everyone

Can anyone tell me if it it possible to lock sheets in a workbook and still have some features available like Sorting and Filtering?

Thanks

 

[anubis]

Go to Tools > Protection > Protect Sheet... and have a look at the user options. In office XP 2002, AutoFilter and Sort are among the options available.

 

[ellac]

What about Excel 2000

Hi and thanks for that answer. I was wondering does 2000 have the same option or is there another way around it.

Thanks again.

 

[Smitty]

Not in 2000, but you can record a macro on an unprotected sheet to capture the Filter and Sort settings, then assign them to a button. Just put ctiveSheet.Unprotect at the beginning of each code set and ActiveSheet.Protect at the end.

Post back with what you get if you need help adjusting the range parameters.

HTH,

Smitty

 

[ellac]

Not sure of how to create the code

Hi

Sounds great, but I am not sure of how to write the code in vba to do what you are explaining. Do you have an example.

Thanks again

 

[Smitty]

Here's a basic example:

Sub Macro1()
    ActiveSheet.Unprotect
        Range("A1:C3").Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ActiveSheet.Protect
End Sub

Smitty