VBA check for protection

[henrik2h]

As part of error handling I would like to check if a cell is unlocked (or locked) for editing. The sheet will be protected but input cells are unlocked.

This does work but it won't work when using a new unprotected sheet where all cells are usually check marked as locked in properties.

If wbTARGET.Sheets(arrDATA(i, 2)).Range(arrDATA(i, 3)).Locked = True Then

I want a more general solution, I only want it to be true if the user actually can't edit the cell.

 

[Micron]

If I understand, then you should add a check for the sheet protectionmode as well? Like

If wbTARGET.Sheets(arrDATA.protectionmode Then
   If wbTARGET.Sheets(arrDATA(i, 2)).Range(arrDATA(i, 3)).Locked = True Then

or put both tests on one line.

 

[henrik2h]

Simple but effective, I got hung up on the .Locked...
Thanks

 

[Micron]

You're welcome, and thanks for the recognition.