I use a workaround where I dont allow the users to select the locked
cells.
This can be enabled while protecting the worksheet using the menu.
or programtically
sheet1.EnableSelection = xlUnlockedCells
sheet1.Protect

Hope it helps.
Regards,
Jayant