Allow users to edit range ERROR

[blommerse@saz.nl]

Hello,

I've a problem, I have a macro in my sheet that custom sort by hitting
a box.

Now I want to allow users to edit range so I have to protect my sheet.
When I do this thing, my macro said there's an error in it.
How can I allow users to edit range and my macra still working. Can
anyone help me and let my know how???
Thanks

[Ardus Petus]

Please post your macro 'Sub...End Sub)

HTH
--
AP

<blommerse@saz.nl> a écrit dans le message de news:
1151413348.876416.287750@u72g2000cwu.googlegroups.com...
> Hello,
>
> I've a problem, I have a macro in my sheet that custom sort by hitting
> a box.
>
> Now I want to allow users to edit range so I have to protect my sheet.
> When I do this thing, my macro said there's an error in it.
> How can I allow users to edit range and my macra still working. Can
> anyone help me and let my know how???
> Thanks
>

[jpfulton@cathedraldirectories.com]

Ardus Petus wrote:
> Please post your macro 'Sub...End Sub)
>
> HTH
> --
> AP
>
> <blommerse@saz.nl> a =E9crit dans le message de news:
> 1151413348.876416.287750@u72g2000cwu.googlegroups.com...
> > Hello,
> >
> > I've a problem, I have a macro in my sheet that custom sort by hitting
> > a box.
> >
> > Now I want to allow users to edit range so I have to protect my sheet.
> > When I do this thing, my macro said there's an error in it.
> > How can I allow users to edit range and my macra still working. Can
> > anyone help me and let my know how???
> > Thanks
> >


www.cathedraldirectories.com

[blommerse@saz.nl]

I changed it now to give the macra the order to unprotect, custom
filter and then protect.
It works now.
But my next question is: Is it possible to allow users to format
cells??
Can you tell me?
Regards, Berry

[blommerse@saz.nl]

Hi Ardus, this is my macro:

Sub protection()
'
' protection Macro
' Macro recorded 27.06.2006 by blommerse
'

'
ActiveSheet.Unprotect
Selection.AutoFilter Field:=3, Criteria1:="<>C", Operator:=xlAnd, _
Criteria2:="<>0*"
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True
End Sub

Now I want that users can't change colors of the cells (except me)
Can you help??
Greets