With Tables("订单") For i As Integer = .TopPosition To .BottomPosition
.Rows(i)("审核") = True .Rows(i).Locked = True NextEnd With