方法一:设置表属性->允许编辑->False
方法二:afterOpenProject写代码
For Each t As Table In Tables t.AllowEdit = FalseNext