VBA控制鼠标的操作范围

  以下的VBA代码,可以控制鼠标的活动范围,即控制鼠标能操作的范围。哪里能操作,哪里不能操作,都能控制。

  代码如下,附带诠释。

  With ActiveSheet 'With 语句,在一个单一对象上执行一系列的语句

  .Unprotect

  '解除没设密码的工作表保护

  .Cells.Locked = False '解除活动工作表中所有单元格的“锁定”

  .Range("F1:J99").Locked = True '只锁定 [F1:J99] 区域

  .EnableSelection = xlUnlockedCells '仅允许选定未被有效锁定的单元格

  .Protect

  '工作表保护(没设密码)

  End With

  'With 语句结束

  以上的代码在代码窗口中使用。[F1:J99]区域不能使用鼠标。