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

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

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

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

4、在模块当中输入如下代码，然后运行Public Declare Function ClipCursor Lib "炽扃仄呦Use32" (lpRect As Any) As LongPublic Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypeSub锁定当前鼠标移动区域() Dim distance As RECT distance.Bottom=160 '允许鼠标移动区域的最下沿离窗口顶端的距离，若为0，则禁止鼠标上下移动 distance.Top=0 '允许鼠标移动区域的最上沿离窗口顶端的距离，不能大于Bottom distance.Left=0 '允许鼠标移动区域的最左沿离窗口左端的距离，若为0，则禁止鼠标左右移动 distance.Right=1024 '允许鼠标移动区域的最右沿离窗口左端的距离，不能小于Left ClipCursor distanceEnd Sub

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