PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : [حل شده] از کارانداختن کلیدهای میانبر


exceliran
2016/04/06, 12:25
سلام. وقت بخیر
چطور میشه تمام کلیدهای میانبر رو در فایل موردنظر از کار انداخت؟
باتشکر فراوان
amir_ts
2016/04/06, 17:40
با سلام
بصورت موردی میتونید از دستور onkey استفاده کنید.مثلا کد زیر به ترتیب copy-paste-cut-print رو غیر فعال میکنه.


With Application
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "^p", ""
End With

و برای فعال کردن از کد زیر میتونید استفاده کنید.



With Application
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "^p"
End With
exceliran
2016/04/06, 17:54
با سلام
بصورت موردی میتونید از دستور onkey استفاده کنید.مثلا کد زیر به ترتیب copy-paste-cut-print رو غیر فعال میکنه.


With Application
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "^p", ""
End With

و برای فعال کردن از کد زیر میتونید استفاده کنید.



With Application
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "^p"
End With




ممنوون. واسه pgdn یا pgup زدم ارور داد. اونو چطو باس لحاظ کرد؟
amir_ts
2016/04/06, 18:00
این کد ها رو امتحان کنید.


.OnKey "{PGUP}", ""
.OnKey "{PGDN}", ""
exceliran
2016/04/06, 19:48
این کد ها رو امتحان کنید.


.OnKey "{PGUP}", ""
.OnKey "{PGDN}", ""

ممنون ولی متاسفانه کارنکرد این 2تا
amir_ts
2016/04/06, 21:43
ممنون ولی متاسفانه کارنکرد این 2تا

فایل نمونه رو ملاحظه کنید.با همین کد کلید Page Up و Page Dn فعال و غیر فعال میشه.
exceliran
2016/04/06, 23:34
فایل نمونه رو ملاحظه کنید.با همین کد کلید Page Up و Page Dn فعال و غیر فعال میشه.

سپاس بابت پاسخگویی شما مهندس عزیز. منظور من ctrl+pgup و ctrl+pgdn هس که امکان رفتن به شیت های دیگه نباشه. الان هم چنان امکانش هس که به سایر شیت ها رفت.
amir_ts
2016/04/07, 09:08
با سلام
برای کلید های ترکیبی مثلا Ctrl+Page Up باید قبل از همین کد ها از علامت ^ استفاده کنید.
به این صورت میشه:


Application.OnKey "^{PGUP}", ""
Application.OnKey "^{PGDN}", ""