Re: как записать в коде наличие клавиши Shift или Ctrl
Боюсь это Вам не поможет. Так я отключал появление меню в экселе по правой кн. мыши: VK_CONTROL=vbKeyCtrl Option Explicit Public Const VK_CONTROL = &H11 Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If GetAsyncKeyState(VK_CONTROL) Then If GetAsyncKeyState(VK_CONTROL) Then Cancel = True 'Stop Call MyProg End If End If End Sub
1 комментарий
Свернуть
VK_CONTROL=vbKeyCtrl
Option Explicit
Public Const VK_CONTROL = &H11
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If GetAsyncKeyState(VK_CONTROL) Then
If GetAsyncKeyState(VK_CONTROL) Then
Cancel = True
'Stop
Call MyProg
End If
End If
End Sub