Range won't Unlock
 

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("A5:P40").Interior.ColorIndex = 2
Range("A5:P40").Locked = Tru
Range("C5:P5,A6:B9,A12:B15,D16,F16,H16,J16,L16,N16 ,P16,N34:N40,D10:D11,F10:F11,H10:H11,J10:J11,L10:L 11,N10:N11,P10:P11,C13:P15,C34:C40").Interior.Colo rIndex = xlNon
Range("D10:D11,F10:F11,H10:H11,J10:J11,L10:L11,N10 :N11,P10:P11,C13:P15,C34:C40").Locked = Fals
End Sub

Range won't Unlock
 

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

--

Vasant


"Matt" wrote in message
...
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("A5:P40").Interior.ColorIndex = 24
Range("A5:P40").Locked = True

Range("C5:P5,A6:B9,A12:B15,D16,F16,H16,J16,L16,N16 ,P16,N34:N40,D10:D11,F10:F
11,H10:H11,J10:J11,L10:L11,N10:N11,P10:P11,C13:P15 ,C34:C40").Interior.ColorI
ndex = xlNone

Range("D10:D11,F10:F11,H10:H11,J10:J11,L10:L11,N10 :N11,P10:P11,C13:P15,C34:C
40").Locked = False
End Sub