vba code will not lock certain ranges after workbook save

[lucad]

I have a range of cells with data that i want to lock after/on save if certain criteria is met.

code:

Sub Workbook_AfterSave(ByVal Success As Boolean)


If Sheets("JANUARY").Range("BE10").Value = "--" And Range("BF10").Value = "--" And Range("BG10").Value = "--" And Range("BH10").Value = "--" Then
Sheets("JANUARY").Unprotect
Sheets("JANUARY").Range("BD10").Locked = False
Sheets("JANUARY").Range("BE10:BH10").Locked = False


Sheets("JANUARY").Protect
Else
Sheets("JANUARY").Unprotect
Sheets("JANUARY").Range("BD10").Locked = True
Sheets("JANUARY").Range("BE10:BH10").Locked = True


Sheets("JANUARY").Protect
End If

the logic in this is straight forward but i just cant understand why i get an error if i want to lock the range BD10? if i remove those lines the other ranges, BE10:BH10 lock fine.

can somone please help me and explain why this is the case... thanks in advance

 

[lucad]

Thought that i might add that the cells that i want to block are validated with a defined list of numbers... If i take this off and just have the cells plain cells with out a drop down list then it works... maybe the code needs to have the .value to be changed to something that suits the list ie .select ?