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

　　代碼如下，附帶詮釋。

　　With ActiveSheet 'With 語句,在一個單一對象上執行一系列的語句

　　.UnPRotect 　　 '解除沒設密碼的工作表保護

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

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

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

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

　　End With 　　 'With 語句結束

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