Janet

ActiveSheet.Unprotect Password:="drowssap"

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:="drowssap"

You don't say what your problem is. Is it with changing the data or the
protection/unprotection ?

Regards

Trevor

"janet" wrote in message
...
I am working in a protected worksheet and when a radio
button is selected, it should unprotect the Sheet, Change
values in Cells and re-protect. I can't get the syntax
correct. I thought it should be

ActiveSheet.Unprotect Password:="password"

Then select the range, change and re-protect.

Getting the Error Message

Runtime Error 1004

Unprotect Method of Worksheet class failed.
-----Original Message-----
Janet

ActiveSheet.Unprotect Password:="drowssap"

ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True, Password:="drowssap"

You don't say what your problem is. Is it with changing
the data or the
protection/unprotection ?

Regards

Trevor

"janet" wrote in message
...
I am working in a protected worksheet and when a radio
button is selected, it should unprotect the Sheet,
Change
values in Cells and re-protect. I can't get the syntax
correct. I thought it should be

ActiveSheet.Unprotect Password:="password"

Then select the range, change and re-protect.






.

Are you running xl97?

If yes, add:

activecell.activate

at the top of your code.

(For controls that have a .takefocusonclick property, you can change that to
false.)

(This is a bug that was fixed in xl2k.)



janet wrote:

Getting the Error Message

Runtime Error 1004

Unprotect Method of Worksheet class failed.
-----Original Message-----
Janet

ActiveSheet.Unprotect Password:="drowssap"

ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True, Password:="drowssap"

You don't say what your problem is. Is it with changing
the data or the
protection/unprotection ?

Regards

Trevor

"janet" wrote in message
...
I am working in a protected worksheet and when a radio
button is selected, it should unprotect the Sheet,
Change
values in Cells and re-protect. I can't get the syntax
correct. I thought it should be

ActiveSheet.Unprotect Password:="password"

Then select the range, change and re-protect.






.


--

Dave Peterson