Hi
Using excel 2003 I am unable to get cells unlocked using VB. I have been going round and round for weeks with this problem and am now ready for the "funny farm"!

I know that I have had this working on previous occasions but now seem unable to get the simplest of code to work.

For Example:-
A single worksheet with all cells defined as general and all locked EXCEPT D1.

The simple code:-

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Target.Offset(3, -3).Locked = False
Target.Offset(3, -3).Select
End If

End Sub

Gives "Run time error 1004"


Unable to set the Locked property of the Range class.

Before my brain turns to total mush can someone please, please point out where I am going wrong.

Hi
I am not a VBA expert but your issue may be because you cannot unlock a cell before you unlock the Worksheet. You need to include code in your VBA to unlock the worksheet first before you unlock the cell. Then lock the worksheet again if you need to.
Hope this helps.
Good luck.
Tony