怎样使用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调出运行宏窗口，然后单击“执行”按钮，鼠标已限定在功能区范围移动，无法移到工作表编辑区，如图