在Excel工作表中指定的單元格區(qū)域中取消右鍵關聯(lián)菜單的方法

1、啟動Excel并打開Visual Basic編輯器，在工程資源管理器中雙擊工作表選項打開“代碼”窗口，在其中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean)

If Not Application.Intersect(Target,Range("A1:G3"))Is Nothing Then Cancel=True

End Sub

圖1　在“代碼”窗口中輸入程序

提示

當鼠標右擊時將觸發(fā)Worksheet對象的BeforeRightClick事件，其中的參數(shù)Target代表鼠標右擊時最靠近鼠標指針的單元格。這里使用Intersect函數(shù)來確定Target單元格區(qū)域是否與A1:G3單元格區(qū)域有交叉。如果有，將Cancel參數(shù)值設置為True，這樣右鍵關聯(lián)菜單就不再顯示。

2、切換到Excel工作表，在A1:G3單元格區(qū)域中鼠標右擊將不再出現(xiàn)關聯(lián)菜單，如圖2所示。

圖2　不再出現(xiàn)右鍵關聯(lián)菜單