urgent, how to lock entire column upon load?

[shirley]

what is the code to lock 1 entire column upon auto load

 

[Tom Ogilvy]

Sub auto_open()
Activesheet.Unprotect
columns(1).Cells.Locked = True
Activesheet.Protect
end Sub

but cells being locked is the default.

 

[shirley]

thx