Dim aa As RowFor Each aa In Tables("总账初期录入_Table1").Rows If aa("科目级次") <> "末级" Then
aa.Locked = True
aa行背景需要变成红色
End IfNext
加好友 
发短信
Post By：2011/7/14 19:04:00 [只看该作者]
