怎样使用VBA锁定鼠标移动范围？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Public Declare Function ClipCursor Lib "Use32" (lpRect As Any) As Long

Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Sub锁定当前鼠标移动区域()
    Dim distance As RECT
    distance.Bottom=160
          '允许鼠标移动区域的最下沿离窗口顶端的距离，若为0，则禁止鼠标上下移动
    distance.Top=0  '允许鼠标移动区域的最上沿离窗口顶端的距离，不能大于Bottom
    distance.Left=0
          '允许鼠标移动区域的最左沿离窗口左端的距离，若为0，则禁止鼠标左右移动
    distance.Right=1024 '允许鼠标移动区域的最右沿离窗口左端的距离，不能小于Left
    ClipCursor distance
End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，鼠标已限定在功能区范围移动，无法移到工作表编辑区，如图