用这个锁定试试,滚轮不会
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intCtrlDown As Integer
intCtrlDown = (Shift And acCtrlMask) > 0
If intCtrlDown And KeyCode = vbKeyZ Then
MsgBox "现在不可用Ctrl+Z撤消!" & KeyCode, 48
KeyCode = 0
ElseIf KeyCode = vbKeyEscape Then
MsgBox "现在不可用ESC键撤消!" & KeyCode, 48
KeyCode = 0
End If
End Sub