worksheet protection excel 2000 vrs 2003

[wtpcomplab]

I have a worksheet with the code below running on excel 2003.
The worksheet is protected with "select unlocked cells" and "formatt cells"
enabled.
When moved to excel 2000 the option for "formatt cells" fails.
Unsure how to correct this in excel 2000.
Any help would be a boon.

Dan


'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
..FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
..FormatConditions(1).Interior.ColorIndex = 6
End With

End Sub

[Alan]

Not completely sure, but I think that the option to select locked and
unlocked cells was not available on XL2000 as were 'allow AutoFilter' etc
and 'allow formatting cells'.
If so then that is the reason the code fails. I'm sure someone will confirm
or overturn this theory,
Regards,
Alan.
"wtpcomplab" <wtpcomplab@discussions.microsoft.com> wrote in message
news:313BF32E-E526-45C6-B535-045B4B2876C8@microsoft.com...
>I have a worksheet with the code below running on excel 2003.
> The worksheet is protected with "select unlocked cells" and "formatt
> cells"
> enabled.
> When moved to excel 2000 the option for "formatt cells" fails.
> Unsure how to correct this in excel 2000.
> Any help would be a boon.
>
> Dan
>
>
> '----------------------------------------------------------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> '----------------------------------------------------------------
> Cells.FormatConditions.Delete
> With Target
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 6
> End With
>
> End Sub
>

[wtpcomplab]

Thanks Alan
A guy can Hope.
But it is "Gates" I did not expect it to be easy.

Dan

"Alan" wrote:

> Not completely sure, but I think that the option to select locked and
> unlocked cells was not available on XL2000 as were 'allow AutoFilter' etc
> and 'allow formatting cells'.
> If so then that is the reason the code fails. I'm sure someone will confirm
> or overturn this theory,
> Regards,
> Alan.
> "wtpcomplab" <wtpcomplab@discussions.microsoft.com> wrote in message
> news:313BF32E-E526-45C6-B535-045B4B2876C8@microsoft.com...
> >I have a worksheet with the code below running on excel 2003.
> > The worksheet is protected with "select unlocked cells" and "formatt
> > cells"
> > enabled.
> > When moved to excel 2000 the option for "formatt cells" fails.
> > Unsure how to correct this in excel 2000.
> > Any help would be a boon.
> >
> > Dan
> >
> >
> > '----------------------------------------------------------------
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > '----------------------------------------------------------------
> > Cells.FormatConditions.Delete
> > With Target
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 6
> > End With
> >
> > End Sub
> >
>
>
>

[Harald Staff]

Hi Dan

Confirming Alan's post, Excel 2000 can not do that. Unless the user defines
the protection password, your code could unprotect - format - reprotect the
sheet.

You should develop these things in the eraliest version to be used,
otherwise you are coding blindfolded.

HTH. Best wishes Harald

"wtpcomplab" <wtpcomplab@discussions.microsoft.com> skrev i melding
news:313BF32E-E526-45C6-B535-045B4B2876C8@microsoft.com...
> I have a worksheet with the code below running on excel 2003.
> The worksheet is protected with "select unlocked cells" and "formatt
cells"
> enabled.
> When moved to excel 2000 the option for "formatt cells" fails.
> Unsure how to correct this in excel 2000.
> Any help would be a boon.
>
> Dan
>
>
> '----------------------------------------------------------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> '----------------------------------------------------------------
> Cells.FormatConditions.Delete
> With Target
> .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> .FormatConditions(1).Interior.ColorIndex = 6
> End With
>
> End Sub
>

[wtpcomplab]

When I was given this project I was told this was the oldest version I needed
to code for.
But Hey.
Thanks anyway.

Dan

"Harald Staff" wrote:

> Hi Dan
>
> Confirming Alan's post, Excel 2000 can not do that. Unless the user defines
> the protection password, your code could unprotect - format - reprotect the
> sheet.
>
> You should develop these things in the eraliest version to be used,
> otherwise you are coding blindfolded.
>
> HTH. Best wishes Harald
>
> "wtpcomplab" <wtpcomplab@discussions.microsoft.com> skrev i melding
> news:313BF32E-E526-45C6-B535-045B4B2876C8@microsoft.com...
> > I have a worksheet with the code below running on excel 2003.
> > The worksheet is protected with "select unlocked cells" and "formatt
> cells"
> > enabled.
> > When moved to excel 2000 the option for "formatt cells" fails.
> > Unsure how to correct this in excel 2000.
> > Any help would be a boon.
> >
> > Dan
> >
> >
> > '----------------------------------------------------------------
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > '----------------------------------------------------------------
> > Cells.FormatConditions.Delete
> > With Target
> > .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
> > .FormatConditions(1).Interior.ColorIndex = 6
> > End With
> >
> > End Sub
> >
>
>
>