Klavye tuşlarını kilitleme

[zırzır]

Arkadaşlar,klavyedeki istediğim tuşları kilitleyecek bir makro veya program varmıdır.

 

[confidant58]

Merhaba,
Aşağıdaki kodları deneyiniz.

Sub Autpen()
Application.ScreenUpdating = False
'Aşağıdaki tuşları kapatır
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "%{F11}", ""
Application.OnKey "%{F8}", ""
Application.OnKey "%{F1}", ""
Application.OnKey "%{F2}", ""
Application.OnKey "%{F3}", ""
Application.OnKey "%{F4}", ""
Application.OnKey "%{F5}", ""
Application.OnKey "%{F6}", ""
Application.OnKey "%{F7}", ""
Application.OnKey "%{F9}", ""
Application.OnKey "%{F10}", ""
Application.OnKey "%{F12}", ""
Application.OnKey "^{F1}", ""
Application.OnKey "^{F2}", ""
Application.OnKey "^{F3}", ""
Application.OnKey "^{F4}", ""
Application.OnKey "^{F5}", ""
Application.OnKey "^{F6}", ""
Application.OnKey "^{F7}", ""
Application.OnKey "^{F8}", ""
Application.OnKey "^{F9}", ""
Application.OnKey "^{F10}", ""
Application.OnKey "^{F11}", ""
Application.OnKey "^{F12}", ""
Application.OnKey "^h", ""
Application.OnKey "^f", ""
Application.OnKey "^n", ""
Application.OnKey "^z", ""
Application.OnKey "^k", ""
Application.OnKey "^q", ""
Application.OnKey "^b", ""
Application.OnKey "^x", ""
Application.OnKey "^s", ""
Application.OnKey "^1", ""
Application.OnKey "^w", ""
Application.OnKey "^o", ""
Application.ScreenUpdating = True
End Sub

Sub Auto_close()
Application.ScreenUpdating = False
'Aşağıdaki tuşları tekrar kullanıma açar.
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "%{F11}"
Application.OnKey "%{F8}"
Application.OnKey "%{F1}"
Application.OnKey "%{F2}"
Application.OnKey "%{F3}"
Application.OnKey "%{F4}"
Application.OnKey "%{F5}"
Application.OnKey "%{F6}"
Application.OnKey "%{F7}"
Application.OnKey "%{F9}"
Application.OnKey "%{F10}"
Application.OnKey "%{F12}"
Application.OnKey "^{F1}"
Application.OnKey "^{F2}"
Application.OnKey "^{F3}"
Application.OnKey "^{F4}"
Application.OnKey "^{F5}"
Application.OnKey "^{F6}"
Application.OnKey "^{F7}"
Application.OnKey "^{F8}"
Application.OnKey "^{F9}"
Application.OnKey "^{F10}"
Application.OnKey "^{F11}"
Application.OnKey "^{F12}"
Application.OnKey "^h"
Application.OnKey "^f"
Application.OnKey "^n"
Application.OnKey "^z"
Application.OnKey "^k"
Application.OnKey "^q"
Application.OnKey "^b"
Application.OnKey "^x"
Application.OnKey "^s"
Application.OnKey "^1"
Application.OnKey "^w"
Application.OnKey "^o"
Application.ScreenUpdating = True
End Sub

Kolay gelsin.

 

[baydeniro]

İlginç bir makro

 

[zırzır]

Sayın confidant58,İstediğim oldu,kod için çok teşekkür ederim.