I have the following code that I run to protect a sheet

ActiveSheet.Protect Password:="xyz", DrawingObjects:=True,
Contents:=True, Scenarios:=True
Sheets("Visit Log").Select
ActiveSheet.Protect Password:="xyz", DrawingObjects:=True,
Contents:=True, Scenarios:=True
Range("D7").Select

I have all required cells within the sheet "Visit Log" unlocked. These
unlocked cells are Data Validation drop down lists which run a change
event code when selected (just changes the background colour)

My problem is that when my sheet is protected with the above code, the
Change event code doesn't work

Any ideas?

Thanks