'以审核结尾,去掉后面的*即可
For Each c As col In Tables("表A").Cols If c.name Like "*审核" Then c.AllowEdit = False End IfNext