Code To Lock Cells

[jfish1288]

I am using the code below to protect a worksheet, allowing the user to only be able to edit a few cells. I also would like the user to only be able to select the unlocked cells. The code below acomplishes that, but when I save and reopen the file it now allows the user to select any cell. The sheet is still protected from edits but I would like the user to be prevented from selecting other cells also. Any idea what I am doing wrong?

With ComparisonWB.Worksheets("Intro")
    .Activate
    .Unprotect Password:="MLGW"
    .Range("H5:P5,H7:P7,H9:P9,H11,H12,H14,H15,H16,H18, N11").Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    .Protect Password:="MLGW", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    .EnableSelection = xlUnlockedCells
End With

 

[Joe4]

Duplicate: http://www.mrexcel.com/forum/showthread.php?t=565095

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).