VBA控制鼠标的操作范围

　2012-06-03 09:04:17　来源：开发学院　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鎼痪褔鏌曟繝蹇曠窗闁煎壊浜滈—鍐偓锝庡墮娴犙勭箾閸喎鐏ユい鏇樺劦椤㈡瑩鎮℃惔銇帮拷

核心提示：以下的VBA代码，可以控制鼠标的活动范围，VBA控制鼠标的操作范围，即控制鼠标能操作的范围，哪里能操作，附带诠释，With ActiveSheet 'With 语句,在一个单一对象上执行一系列的语句.Unprotect '解除没设密码的工作表保护 .Cells.Locked = False '

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

代码如下，附带诠释。

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

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

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

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

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

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

End With　　　　　　　　　　　　　　　　 'With 语句结束

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