如果你控制过了窗口的列,隐藏了,要重新显示出来才行,你可以afterClose事件写
For Each c As Col In Tables("表A").cols c.visible = TrueNext