Copy just the Locked status of a range to another range?

[tonywatsonhelp]

Hi Everyone,

As I create the sheet I'm on a macro decides if each cell should be protected or locked within the range of AS21:AU297 ,now i want to copy the each cells property to Range BA21:BC297
however i have very different formatting and conditional formats and even values in these cells that i don't want to lose,

so is there a way i can copy over just the "Protection" status for each cell? i.e Locked or Unlocked??

please help if you can

Thanks

Tony

 

[JoeMo]

Hi Everyone,

As I create the sheet I'm on a macro decides if each cell should be protected or locked within the range of AS21:AU297 ,now i want to copy the each cells property to Range BA21:BC297
however i have very different formatting and conditional formats and even values in these cells that i don't want to lose,

so is there a way i can copy over just the "Protection" status for each cell? i.e Locked or Unlocked??

please help if you can

Thanks

Tony

Untested. Try this on a copy of your sheet:

Sub TRY()
Dim c As Range
For Each c In Range("AS21:AU297")
    c.Offset(0, 8).Locked = c.Locked
Next c
MsgBox "Done"
End Sub

 

[tonywatsonhelp]

Thanks JoeMo, I'll give that a try looks good

Thanks

Tony

 

[JoeMo]

Thanks JoeMo, I'll give that a try looks good

Thanks

Tony

You are welcome - thanks for the reply.