我的目標(biāo)：讓中國(guó)的大學(xué)生走出校門(mén)的那一刻就已經(jīng)具備這些Office技能，讓職場(chǎng)人士能高效使用Office為其服務(wù)。支持鵬哥，也為自己加油！

前幾天寫(xiě)過(guò)一篇文章：

《在Excel中禁用右鍵菜單你會(huì)嗎？》

在Excel中利用工作表事件可以實(shí)現(xiàn)當(dāng)點(diǎn)擊右鍵時(shí)不彈出右鍵菜單，但是當(dāng)我們按下彈出右鍵菜單的快捷鍵Shift+F10時(shí)，照樣會(huì)彈出右鍵菜單，而且是可以使用的。

那怎么才能真正的禁用右鍵菜單呢？也就是說(shuō)不僅要點(diǎn)擊右鍵不會(huì)彈出右鍵菜單，而且當(dāng)按下Shift+F10時(shí)也不會(huì)彈出右鍵菜單。

要想解決上述問(wèn)題，我們先要學(xué)習(xí)一個(gè)知識(shí)點(diǎn)，如何在VBA中讓指定按下鍵盤(pán)上某個(gè)鍵時(shí)能發(fā)生一個(gè)事件，這就是所謂的OnKey事件，即按下某個(gè)鍵會(huì)執(zhí)行一個(gè)特定的過(guò)程。

案例：

實(shí)現(xiàn)效果：按下Shift+F10后彈出一個(gè)消息框，顯示：你好，Shift+F10已被禁用

首先寫(xiě)一個(gè)過(guò)程：

然后把這個(gè)過(guò)程的快捷鍵指定為Shift+F10：

Sub SetupNoShiftF10()    Application.OnKey '+{F10}', 'NoShiftF10'End Sub

這樣，當(dāng)運(yùn)行完SetupNoShiftF10過(guò)程后，Application.OnKey '+{F10}', 'NoShiftF10'就把Shift+F10指定為觸發(fā)程序NoShiftF10。

所以，當(dāng)我們按下Shift+F10以后，就會(huì)自動(dòng)運(yùn)行NoShiftF10過(guò)程。

OnKey事件的基本語(yǔ)法：

Application.OnKey '某個(gè)鍵', '某個(gè)程序'

那怎么讓快捷鍵恢復(fù)原來(lái)的功能呢？比如要讓上面的Shift+F10恢復(fù)彈出快捷鍵的功能呢？

向右滑動(dòng)可以查看完整代碼

Application.OnKey '某個(gè)鍵'

OnKey方法的第二個(gè)參數(shù)不寫(xiě)，這樣就會(huì)恢復(fù)這個(gè)鍵本來(lái)的作用。

具體鍵的書(shū)寫(xiě)代碼如下：

單個(gè)鍵：

組合鍵：

比如：上述案例中Shift+F10，表示為：+{F10}

本節(jié)的分享就到這里，鵬哥祝大家每天都有進(jìn)步。

學(xué)習(xí)點(diǎn)VBA技術(shù)，從此高效工作！

從基礎(chǔ)操作到VBA，

兩杯咖啡的錢，

換取一份如此詳細(xì)的Excel視頻資料，

你還在猶豫？

欲購(gòu)從速，聯(lián)系微信號(hào)：527240310

非誠(chéng)勿擾！