主题：如何取消解锁

换一种思路，双击逻辑列，就切换勾选

If e.Col.name = "第九列" Then
    e.Row(e.Col.name) = not e.Row(e.Col.name)
End If