主题：锁定行不允许移动

 BeforeSelChange事件加入下列代码

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
   

 If  修改了 then
            e.Cancel = True
        End If
    End If
End If