prepareEdit事件
If vars("列名").Contains(e.Col.Name) = False Then e.Cancel = True
------------
解锁 vars("列名") = "第一列,第二列"