[حل شده] غیرفعال کردن کلیدهای میانبر

[mobinsaffarpour]

سلام دوستان

1 - میخواستم بدونم آیا راهی وجود داره که تمامی کلیدهای میانبر رو پس از ورود به فایل غیرفعال کرد؟؟

2 - روش غیرفعال کردن کلید ctrl چطوری هست بطوریکه با هیچ کلید دیگه ای کار نده.؟؟ یعنی وقتی ctrl+o رو زدیم چون ctrl غیر فعال شده، پنجره بازنمون فایل رو نمایش نده.؟

[abootorab]

سلام دوستان

1 - میخواستم بدونم آیا راهی وجود داره که تمامی کلیدهای میانبر رو پس از ورود به فایل غیرفعال کرد؟؟

2 - روش غیرفعال کردن کلید ctrl چطوری هست بطوریکه با هیچ کلید دیگه ای کار نده.؟؟ یعنی وقتی ctrl+o رو زدیم چون ctrl غیر فعال شده، پنجره بازنمون فایل رو نمایش نده.؟

با درود

1. بله
2.کد زیر رو در Workbook_Open قرار بدید. این کد کلیه کلیدهای ترکیبی که با Ctrl میتواند فشرده شود را غیرفعال خواهد کرد.

Private Sub Workbook_Open()
    Dim Ctl As CommandBarControl
    For Each Ctl In Application.CommandBars("&Legacy Keyboard Support").Controls
        Ctl.Tag = Ctl.Caption
        Ctl.Caption = Replace(Ctl.Caption, "&", "")
    Next
        
    Dim StartKeyCombination As Variant
    Dim KeysArray As Variant
    Dim Key As Variant
    Dim I As Long
    On Error Resume Next
    For Each StartKeyCombination In Array("^", "+^", "^%", "+^%")
        KeysArray = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
                          "{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
                          "{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
                          "{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")
        For Each Key In KeysArray
            Application.OnKey StartKeyCombination & Key, ""
        Next Key
        For I = 0 To 255
            Application.OnKey StartKeyCombination & Chr$(I), ""
        Next I
        For I = 1 To 15
            Application.OnKey StartKeyCombination & "{F" & I & "}", ""
        Next I
    Next StartKeyCombination
 End Sub