主题：怎么设置列窗口不允许关闭

参考代码

For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        msgbox(b.text)
        If B.text = "第十列" Then
            b.CanCloseTabs = False
            b.CanAutoHide = False
        End If
    Next
Next