用这个事件:
http://www.foxtable.com/help/topics/0646.htm
代码:
If e.NewRange.RowEnd <> e.NewRange.RowSel Then e.Cancel = TrueEnd If