Code khóa phím tắt và chuột (1 người xem)

[hongtruong101186]

Mình muốn vô hiệu hóa phím tắt và chuột phải thì có đoạn code nào không?

 

[hoangdanh282vn]

Disable Shortcut with onkey

Mình gửi các bạn code hủy chức năng của phím tắt Ctrl+C, Ctrl+S, nút Delete và Rightclick
Các bạn copy đoạn code sau và đặt nó trong ThisWorkbook nha.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^c" 'c None CapsLock
Application.OnKey "^s" 's None CapsLock
Application.OnKey "{DEL}"
End Sub

Sub Workbook_open()
Application.OnKey "^c", ""
Application.OnKey "^s", ""
Application.OnKey "{DEL}", ""
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub