Xin Code khóa các phím ESC, F8, F11 và Viewcode chuột phải (1 người xem)

[quyenpv]

Mình đang tập tành viết mấy thử nhỏ nhỏ, như tiêu đề nhờ anh chị viết giúp code khóa các phím trên với ạ. Chân thành cám ơn GPE nhiều

 

[KUMI]

Mình đang tập tành viết mấy thử nhỏ nhỏ, như tiêu đề nhờ anh chị viết giúp code khóa các phím trên với ạ. Chân thành cám ơn GPE nhiều

Chào Bạn,
Đầu tiên bạn bỏ hết các code này vào trong một module nhé,sau đó nếu muốn khóa phím thì chạy Sub Disable_IntoVBE còn mở lên bạn chạy Sub Enable_IntoVBE
Code này mình cũng học được từ GPE thôi,, bạn tìm là có.

Option Explicit


Sub Disable_IntoVBE()
    'Không dùng phím tắt VBE
    CmdControl 1695, False
    CmdControl 186, False
    CmdControl 184, False
    CmdControl 1561, False
    CmdControl 1605, False
    Application.OnDoubleClick = ""
    CommandBars("ToolBar List").Enabled = False
    Application.OnKey "%{F11}", ""
    Application.OnKey "%{F8}", ""
End Sub


Sub Enable_IntoVBE()
    'Trở về mặc định
    CmdControl 1695, True
    CmdControl 186, True
    CmdControl 184, True
    CmdControl 1561, True
    CmdControl 1605, True
    Application.OnDoubleClick = ""
    CommandBars("ToolBar List").Enabled = True
    Application.OnKey "%{F11}"
    Application.OnKey "%{F8}"
End Sub


Sub CmdControl(Id As Integer, TF As Boolean)
    'Xử lý tổng quát cho CommandBarControl
    Dim CBar As CommandBar
    Dim c As CommandBarControl
    On Error Resume Next
    For Each CBar In Application.CommandBars
    Set c = CBar.FindControl(Id:=Id, recursive:=True)
    If Not c Is Nothing Then c.Enabled = TF
    Next
    Set c = Nothing
End Sub