1、BeforeSelChanged事件
If e.NewRange.RowSel <> e.OldRange.RowSel Then If vars("锁定") = True Then e.cancel = True End IfEnd If
2、锁定操作
vars("锁定") = True
3、解锁操作
vars("锁定") = False