Range won't Unlock

[Guest]

I have code that locks the majority of the cells in my spreadsheet. I then have code that unlocks a group of those cells. The code that unlocks the cells gives me a run-time error 1004: Unable to set the Locked property of the Range class. I don't understand why I'm getting this error. The .Locked = False line is the problem line. The syntax looks right. Any help would be great. Thanks in advance. The code follows

Private Sub optNonUniformed_Click(
Worksheets("TIME AND LEAVE").Protect UserInterfaceOnly:=Tru
Range("A540").Interior.ColorIndex = 2
Range("A540").Locked = Tru
Range("C55,A6:B9,A12:B15,D16,F16,H16,J16,L16,N16,P16,N34:N40,D1011,F10:F11,H10:H11,J10:J11,L10:L11,N10:N11,P1011,C1315,C34:C40").Interior.ColorIndex = xlNon
Range("D1011,F10:F11,H10:H11,J10:J11,L10:L11,N10:N11,P1011,C1315,C34:C40").Locked = Fals
End Sub

 

[Vasant Nanavati]

Your code works for me as is in Excel 2K. I just copied, pasted and ran it
with no problems.

--

Vasant

I have code that locks the majority of the cells in my spreadsheet. I then

have code that unlocks a group of those cells. The code that unlocks the
cells gives me a run-time error 1004: Unable to set the Locked property of
the Range class. I don't understand why I'm getting this error. The .Locked
= False line is the problem line. The syntax looks right. Any help would be
great. Thanks in advance. The code follows.

Private Sub optNonUniformed_Click()
Worksheets("TIME AND LEAVE").Protect UserInterfaceOnly:=True
Range("A540").Interior.ColorIndex = 24
Range("A540").Locked = True

Range("C55,A6:B9,A12:B15,D16,F16,H16,J16,L16,N16,P16,N34:N40,D1011,F10:F
11,H10:H11,J10:J11,L10:L11,N10:N11,P1011,C1315,C34:C40").Interior.ColorI
ndex = xlNoneRange("D1011,F10:F11,H10:H11,J10:J11,L10:L11,N10:N11,P1011,C1315,C34:C
40").Locked = False

 

[Dave Peterson]

There's a bug in xl97 (fixed in xl2k) that deals with code called from controls
from the control toolbox toolbar that are used on a worksheet.

One fix is to change the .takefocusonclick property to false.

Another fix is to add:
activecell.activate
at the top of your code.

since the optionbuttons (it is an option button???) don't have the
..takefocusonclick property, you can use the
second suggestion.