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

1、啟動(dòng)Excel并打開Visual Basic編輯器，在工程資源管理器中雙擊工作表選項(xiàng)打開“代碼”窗口，在其中輸入程序代碼，如圖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　在“代碼”窗口中輸入程序

提示

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

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

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