加一个逻辑列【隐藏】,如果勾选,就隐藏,否则,就隐藏。
AfterOpenProject事件
Tables("表A").Filter = "隐藏 is null Or 隐藏 = False"
DataColChanged事件
If e.DataCol.Name = "隐藏" Then
End If