以下的VBA代码，可以控制鼠标的活动范围，即控制鼠标能操作的范围。哪里能操作，哪里不能操作，都能控制。
代码如下，附带诠释。
With ActiveSheet "With 语句,在一个单一对象上执行一系列的语句
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/diannaorumen/）.Unprotect "解除没设密码的工作表保护
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/diannaorumen/）.Cells.Locked = False "解除活动工作表中所有单元格的锁定
.Range("F1:J99").Locked = True "只锁定 [F1:J99] 区域
.EnableSelection = xlUnlockedCells "仅允许选定未被有效锁定的单元格
.Protect "工作表保护(没设密码)
End With "With 语句结束
以上的代码在代码窗口中使用。[F1:J99]区域不能使用鼠标。
