以下的VBA代碼，可以控制鼠標的活動范圍，即控制鼠標能操作的范圍 。哪里能操作，哪里不能操作，都能控制 。
代碼如下，附帶詮釋 。
With ActiveSheet 'With 語句,在一個單一對象上執行一系列的語句
.Unprotect'解除沒設密碼的工作表保護
.Cells.Locked = False'解除活動工作表中所有單元格的“鎖定”
.Range("F1:J99").Locked = True '只鎖定 [F1:J99] 區域
.EnableSelection = xlUnlockedCells '僅允許選定未被有效鎖定的單元格
.Protect'工作表保護(沒設密碼)
End With'With 語句結束
【vba控制鼠標移動和按鍵 VBA控制鼠標的操作范圍】以上的代碼在代碼窗口中使用 。[F1:J99]區域不能使用鼠標 。
