------ Register to get rid of these "In Post" ads! ------


Hello,

I have have a Tabel that uses the Auto Filter option, i secured my Sheet with:
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowSorting:=True, AllowFiltering:=True

on opening of the document.

when I click on the AutoFilter button to Sort Accending it gives me an error
message "The cell or chart you are trying to change is protected and
therefore read-only"

How can i have the fields protected but let it sort?

thank you,

Daniel Schmidt

------ Register to get rid of these "In Post" ads! ------


anyone that can help?


> Hello,
>
> I have have a Tabel that uses the Auto Filter option, i secured my Sheet with:
> ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
> False, AllowSorting:=True, AllowFiltering:=True
>
> on opening of the document.
>
> when I click on the AutoFilter button to Sort Accending it gives me an error
> message "The cell or chart you are trying to change is protected and
> therefore read-only"
>
> How can i have the fields protected but let it sort?
>
> thank you,
>
> Daniel Schmidt

------ Register to get rid of these "In Post" ads! ------


On 12 Giu, 14:11, TheGerman <dschm...@memorialhealthcare.org> wrote:
> anyone that can help?
>
>
>
> > Hello,
>
> > I have have a Tabel that uses the Auto Filter option, i secured my Sheet with:
> > ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
> > * * * * False, AllowSorting:=True, AllowFiltering:=True
>
> > on opening of the document. *
>
> > when I click on the AutoFilter button to Sort Accending it gives me an error
> > message "The cell or chart you are trying to change is protected and
> > therefore read-only"
>
> > How can i have the fields protected but let it sort?
>
> > thank you,
>
> > Daniel Schmidt- Nascondi testo citato
>
> - Mostra testo citato -

Hi German.
If I well understood, try:

Public Sub prova()
ActiveSheet.Unprotect
'your filter instruction or/and
'your sort instructions
ActiveSheet.Protect 'with your parameters
End Sub

Regards
Eliano