error 1004 cannot set locked property of range class

[akanowhere]

Theres no merge cell in this sheet. That sheet is locked.


Private Sub Worksheet_Change(ByVal Target As Range)


If Range("A11") <> "" Then
Range("B1:L11").Locked = False
ElseIf Range("A11") = "" Then
Range("B11:L11").Locked = True
End If


End Sub

 

[Joe4]

Do you have sheet protection on?
If so, you will need to first unprotect the sheet before you can lock/unlock the cells.
You can add that right to the code, if you like.

 

[akanowhere]

Do you have sheet protection on?
If so, you will need to first unprotect the sheet before you can lock/unlock the cells.
You can add that right to the code, if you like.

Yes the sheet is protected.....

 

[akanowhere]

Yes the sheet is protected.....Coud you help me with this code...

 

[Joe4]

Yes the sheet is protected.....

Protection wouldn't be worth much if you could simply bypass it by using VBA code!
Here is a link that shows you how to code it to unprotect it first (with and without password, depending on if you are using one).

VBA Protect / Unprotect Worksheets

This tutorial will teach you everything about Excel Worksheet protection in VBA - How to Protect or Unprotect Worksheets in Excel. Unprotect Excel

www.automateexcel.com

You will just want to be sure to turn it back on at the end of your code.

 

[akanowhere]

Protection wouldn't be worth much if you could simply bypass it by using VBA code!
Here is a link that shows you how to code it to unprotect it first (with and without password, depending on if you are using one).

VBA Protect / Unprotect Worksheets

This tutorial will teach you everything about Excel Worksheet protection in VBA - How to Protect or Unprotect Worksheets in Excel. Unprotect Excel

www.automateexcel.com

You will just want to be sure to turn it back on at the end of your code.

I will test that and return....tks for your attention

 

[akanowhere]

The article solve my problem. Tks a lot for spend your time to help to solve this problems.

 

[Joe4]

You are welcome.
Glad I was able to help.