主题：禁止移动行

先定义一个全局变量

Public qjkg as Boolean = false

然后 在 BeforeSelRangeChange 事件弄个 开关

if qjkg=false then

 e.Cancel=True  '取消改变行

end if

在你那个按键  修改数据  点击事件加上  qjkg=false

保存数据 点击事件加上  qjkg=true

-------------以上只是参考，具体得自己尝试！