click事件
If e.Col.name = "第五列" Then e.Row("第五列") = not e.Row("第五列") e.Row.Locked = e.Row("第五列")End If