I have a workbook set up to use in a classroom setting with multiple choice
answers. I have unlocked the answer boxes and protected the sheet. All
works nicely. Now I would like to have each student remove their answers
leaving the workbook for the next student. Before the protection I used a
macro selecting a range of cells in the answer columns and clearing the
cells. How can I move down the range and clear only the unlocked cells?

try this

Sub chgunlocked()
For Each c In Selection
If c.Locked = False Then c.Value = 11
Next
End Sub


--
Don Guillett
SalesAid Software

"Grandma Barb" <Grandma wrote in message
...
I have a workbook set up to use in a classroom setting with multiple
choice
answers. I have unlocked the answer boxes and protected the sheet. All
works nicely. Now I would like to have each student remove their answers
leaving the workbook for the next student. Before the protection I used a
macro selecting a range of cells in the answer columns and clearing the
cells. How can I move down the range and clear only the unlocked cells?

Thanks. I replaced the 11 with "" (quotes), copied the for next loop into my
macro and it worked. Now I don't have to worry about little fingers messing
up my excel sheet which lets the children in my Sunday School class work on
their Bible knowledge. Grandma Barb


"Don Guillett" wrote:

try this

Sub chgunlocked()
For Each c In Selection
If c.Locked = False Then c.Value = 11
Next
End Sub


--
Don Guillett
SalesAid Software

"Grandma Barb" <Grandma wrote in message
...
I have a workbook set up to use in a classroom setting with multiple
choice
answers. I have unlocked the answer boxes and protected the sheet. All
works nicely. Now I would like to have each student remove their answers
leaving the workbook for the next student. Before the protection I used a
macro selecting a range of cells in the answer columns and clearing the
cells. How can I move down the range and clear only the unlocked cells?

Glad to help but bob's might be a little bit quicker.

--
Don Guillett
SalesAid Software

"Grandma Barb" wrote in message
...
Thanks. I replaced the 11 with "" (quotes), copied the for next loop into
my
macro and it worked. Now I don't have to worry about little fingers
messing
up my excel sheet which lets the children in my Sunday School class work
on
their Bible knowledge. Grandma Barb


"Don Guillett" wrote:

try this

Sub chgunlocked()
For Each c In Selection
If c.Locked = False Then c.Value = 11
Next
End Sub


--
Don Guillett
SalesAid Software

"Grandma Barb" <Grandma wrote in message
...
I have a workbook set up to use in a classroom setting with multiple
choice
answers. I have unlocked the answer boxes and protected the sheet.
All
works nicely. Now I would like to have each student remove their
answers
leaving the workbook for the next student. Before the protection I
used a
macro selecting a range of cells in the answer columns and clearing
the
cells. How can I move down the range and clear only the unlocked
cells?

Dim cell As Range
On Error Resume Next
For Each cell In ActiveSheet.UsedRange
cell.ClearContents
Next cell
On Error GoTo 0


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Grandma Barb" <Grandma wrote in message
...
I have a workbook set up to use in a classroom setting with multiple
choice
answers. I have unlocked the answer boxes and protected the sheet. All
works nicely. Now I would like to have each student remove their answers
leaving the workbook for the next student. Before the protection I used a
macro selecting a range of cells in the answer columns and clearing the
cells. How can I move down the range and clear only the unlocked cells?