Locking Worksheet

Question

Hi
We have requirment to lock the worksheet, and enable input only to selective columns.
I am using following code to achieve the same.
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target = Range("N53")) Then
  If Range("N53").Value = "0" Then
        ActiveSheet.Unprotect
        ActiveSheet.Range("AI54:AI20000").Locked = True
        ActiveSheet.Protect
     Else
        ActiveSheet.Unprotect
        ActiveSheet.Range("AI54:AI20000").Locked = False
        ActiveSheet.Protect
    End If
Else: End If
    End Sub
But when I refresh the worksheet or expand, I get a pop up message saying.
"The cell or chart you are trying to change is protected and there fore read only. To modify...."
Please help me...how to avoid this message...as if I am encorporating the same functionality in simple sheet..its not giving me this message...In the actual worksheet..there are lot of calculation and also Evsnd is used.
Also in actual sheet, I have locked all cells except the AI54:AI20000
Thanks in advance for your inputs.

Answer 1

If you are using evdre, you can explore using the FORMAT RANGE:
You'd need to add a hidden column header row and in the header cell for the columns in question, reference your calc cell.  Before you saved the workbook you would just hide this row.  But it would definitely need to be in the Header range for the Columns.
In the format range, you would need to use something like the following:
Criteria:   HEADING="whatever the lock value is"
Evaluate In:  COL
Format:   Set the cell format protection to be locked
Use:  LOCK
Apply to: DATA
You would need make sure that there was another format row like the following list above the locking format line:
Criteria:   DEFAULT
Format:   Set the cell format protection to NOT be locked
Apply to: DATA
Then once you set the workbook password in the workbook options, whenever the evdre is re-evaluated, the format range will lock/unlock the column's data cell based on the value in the header row for that column.
If you are using column expansion, the hidden header row cells may need additional logic to determine if they are using the locking cell value or not.