Identifing Locked Cells
 

I have a fairly complex spreadsheet that requires salespeople to fill in
info. Many cells are locked from being changed. Is there a way to create a
macro that looks a current sheet and will change the cell color if cell is
locked (or unlocked)? Right now I review by going from cell, to, cell, to
cell.....

Any suggestions is MUCH appreciated....
Steve

Identifing Locked Cells
 

Steve, here is one way,

Sub Highlight_Locked_Cells()

'will color all locked cells in the sheet

Dim Cel As Range

For Each Cel In ActiveSheet.UsedRange.Cells

If Cel.Interior.ColorIndex = 46 Then Cel.Interior.ColorIndex = 0

Next

For Each Cel In ActiveSheet.UsedRange.Cells

If Cel.Locked = True Then Cel.Interior.ColorIndex = 46

Next

Exit Sub

End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003



"Steve Klenner" wrote in message
...
I have a fairly complex spreadsheet that requires salespeople to fill in
info. Many cells are locked from being changed. Is there a way to create
a macro that looks a current sheet and will change the cell color if cell
is locked (or unlocked)? Right now I review by going from cell, to, cell,
to cell.....

Any suggestions is MUCH appreciated....
Steve

Identifing Locked Cells
 

Rather than a macro, can you set up a format Style and apply it to
locked cells? You could set up the cell color using the Style you
define.

Mark


Steve Klenner wrote:
I have a fairly complex spreadsheet that requires salespeople to fill in
info. Many cells are locked from being changed. Is there a way to create a
macro that looks a current sheet and will change the cell color if cell is
locked (or unlocked)? Right now I review by going from cell, to, cell, to
cell.....

Any suggestions is MUCH appreciated....
Steve

Identifing Locked Cells
 

Paul -

The Macro Worked like a charm.

Steve


"Steve Klenner" wrote in message
...
I have a fairly complex spreadsheet that requires salespeople to fill in
info. Many cells are locked from being changed. Is there a way to create
a macro that looks a current sheet and will change the cell color if cell
is locked (or unlocked)? Right now I review by going from cell, to, cell,
to cell.....

Any suggestions is MUCH appreciated....
Steve