以下的VBA代碼，可以控制鼠標的活動范圍，即控制鼠標能操作的范圍。哪里能操作，哪里不能操作，都能控制。

代碼如下，附帶詮釋。

With ActiveSheet ‘With 語句,在一個單一對象上執(zhí)行一系列的語句

.Unprotect ‘解除沒設密碼的工作表保護

.Cells.Locked = False ‘解除活動工作表中所有單元格的“鎖定”

.Range(“F1:J99”).Locked = True ‘只鎖定 [F1:J99] 區(qū)域

.EnableSelection = xlUnlockedCells ‘僅允許選定未被有效鎖定的單元格

.Protect ‘工作表保護(沒設密碼)

End With ‘With 語句結束

以上的代碼在代碼窗口中使用。[F1:J99]區(qū)域不能使用鼠標。