这个EXCEL所有的列为什么不能被拉动？

Question

在一个空白的EXCEL中
 Private Sub Workbook_Open()
  ActiveSheet.Unprotect "123"
  Columns("A:I").Select
  Selection.Locked = True
  Selection.FormulaHidden = True  Columns("B:B").Select
  Selection.Locked = False
  Selection.FormulaHidden = False
  ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
end sub
如上述代码所示，我的本意是要让B列不被修改，但是现在发现出来一个新问题，所有的列都不能被拖动了，列宽不能自由缩放。整个EXCEL的颜色也不能改变，单元格属性都变成灰色了，大家看有什么办法没有，其实我就是想让B列不被修改而已，搞出这么多问题。
请教各位大哥，是何原因呢？

Answer 1

刚才就在vb版还是俺看错了？