Error locking cell

[RSimp321]

Hi,

I receive the following error when trying to lock a cell via a macro -
"Unable to set the Locked Property of the Range class.". My code basically
writes a value into an unlocked cell, unprotects the sheet, changes the cell
to locked, then re-protects the sheet. Code is below:

Range("O73").Select
ActiveCell.FormulaR1C1 = "CHECKED"
ActiveSheet.Unprotect Password:="ABC"
Selection.Locked = True
ActiveSheet.Protect Password:="ABC"

The error occurs at "Selection.Locked" stage. Can anyone help me?????

Thanks,
Richard.

[Dean]

Richard,

I've just tried your code in a command button and it worked ok, no probs.
Where are you running the code from?

"RSimp321" wrote:

> Hi,
>
> I receive the following error when trying to lock a cell via a macro -
> "Unable to set the Locked Property of the Range class.". My code basically
> writes a value into an unlocked cell, unprotects the sheet, changes the cell
> to locked, then re-protects the sheet. Code is below:
>
> Range("O73").Select
> ActiveCell.FormulaR1C1 = "CHECKED"
> ActiveSheet.Unprotect Password:="ABC"
> Selection.Locked = True
> ActiveSheet.Protect Password:="ABC"
>
> The error occurs at "Selection.Locked" stage. Can anyone help me?????
>
> Thanks,
> Richard.
>

[RSimp321]

I'm running the code from an excel add-in. The sheet seems to protect and
unprotect fine, but it just fails to lock the cell.

"Dean" wrote:

> Richard,
>
> I've just tried your code in a command button and it worked ok, no probs.
> Where are you running the code from?
>
> "RSimp321" wrote:
>
> > Hi,
> >
> > I receive the following error when trying to lock a cell via a macro -
> > "Unable to set the Locked Property of the Range class.". My code basically
> > writes a value into an unlocked cell, unprotects the sheet, changes the cell
> > to locked, then re-protects the sheet. Code is below:
> >
> > Range("O73").Select
> > ActiveCell.FormulaR1C1 = "CHECKED"
> > ActiveSheet.Unprotect Password:="ABC"
> > Selection.Locked = True
> > ActiveSheet.Protect Password:="ABC"
> >
> > The error occurs at "Selection.Locked" stage. Can anyone help me?????
> >
> > Thanks,
> > Richard.
> >

[Dean]

Only a suggestion but try re-selecting the cell before locking

"RSimp321" wrote:

> I'm running the code from an excel add-in. The sheet seems to protect and
> unprotect fine, but it just fails to lock the cell.
>
> "Dean" wrote:
>
> > Richard,
> >
> > I've just tried your code in a command button and it worked ok, no probs.
> > Where are you running the code from?
> >
> > "RSimp321" wrote:
> >
> > > Hi,
> > >
> > > I receive the following error when trying to lock a cell via a macro -
> > > "Unable to set the Locked Property of the Range class.". My code basically
> > > writes a value into an unlocked cell, unprotects the sheet, changes the cell
> > > to locked, then re-protects the sheet. Code is below:
> > >
> > > Range("O73").Select
> > > ActiveCell.FormulaR1C1 = "CHECKED"
> > > ActiveSheet.Unprotect Password:="ABC"
> > > Selection.Locked = True
> > > ActiveSheet.Protect Password:="ABC"
> > >
> > > The error occurs at "Selection.Locked" stage. Can anyone help me?????
> > >
> > > Thanks,
> > > Richard.
> > >

[RSimp321]

Only a suggestion? Only the answer to the problem I've been having all
morning! Thanks very much.

Richard.

"Dean" wrote:

> Only a suggestion but try re-selecting the cell before locking
>
> "RSimp321" wrote:
>
> > I'm running the code from an excel add-in. The sheet seems to protect and
> > unprotect fine, but it just fails to lock the cell.
> >
> > "Dean" wrote:
> >
> > > Richard,
> > >
> > > I've just tried your code in a command button and it worked ok, no probs.
> > > Where are you running the code from?
> > >
> > > "RSimp321" wrote:
> > >
> > > > Hi,
> > > >
> > > > I receive the following error when trying to lock a cell via a macro -
> > > > "Unable to set the Locked Property of the Range class.". My code basically
> > > > writes a value into an unlocked cell, unprotects the sheet, changes the cell
> > > > to locked, then re-protects the sheet. Code is below:
> > > >
> > > > Range("O73").Select
> > > > ActiveCell.FormulaR1C1 = "CHECKED"
> > > > ActiveSheet.Unprotect Password:="ABC"
> > > > Selection.Locked = True
> > > > ActiveSheet.Protect Password:="ABC"
> > > >
> > > > The error occurs at "Selection.Locked" stage. Can anyone help me?????
> > > >
> > > > Thanks,
> > > > Richard.
> > > >