主题：锁定多行代码

如果需要一键锁定筛选出来的多行，代码应该怎样编写？      Syscmd.Row.Lock()  代码只能一次锁定一行。

Tables("订单").Filter = "产品 = 'PD03'"
For Each r As Row In Tables("订单").Rows
    r.Locked = True
Next

 

 

Tables("订单").Filter = "产品 = 'PD03'"
For i As Integer = 0 To Tables("订单").Rows.Count - 1
    'Tables("订单").Select(i,0)

    Tables("订单").Position = i
    Syscmd.Row.Lock()
Next

如果只锁定“名次”列中1到8的行，代码应该怎样修改

PrepareEdit

 

If e.Col.Name = "名次" Then
    For i As Integer = 0 To 7
        If e.Row.Index = i Then
            e.Cancel = True
            Exit For
        End If
    Next
End If