توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : [حل شده] از کارانداختن کلیدهای میانبر
exceliran
2016/04/06, 12:25
سلام. وقت بخیر
چطور میشه تمام کلیدهای میانبر رو در فایل موردنظر از کار انداخت؟
باتشکر فراوان
با سلام
بصورت موردی میتونید از دستور 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 زدم ارور داد. اونو چطو باس لحاظ کرد؟
این کد ها رو امتحان کنید.
.OnKey "{PGUP}", ""
.OnKey "{PGDN}", ""
exceliran
2016/04/06, 19:48
این کد ها رو امتحان کنید.
.OnKey "{PGUP}", ""
.OnKey "{PGDN}", ""
ممنون ولی متاسفانه کارنکرد این 2تا
ممنون ولی متاسفانه کارنکرد این 2تا
فایل نمونه رو ملاحظه کنید.با همین کد کلید Page Up و Page Dn فعال و غیر فعال میشه.
exceliran
2016/04/06, 23:34
فایل نمونه رو ملاحظه کنید.با همین کد کلید Page Up و Page Dn فعال و غیر فعال میشه.
سپاس بابت پاسخگویی شما مهندس عزیز. منظور من ctrl+pgup و ctrl+pgdn هس که امکان رفتن به شیت های دیگه نباشه. الان هم چنان امکانش هس که به سایر شیت ها رفت.
با سلام
برای کلید های ترکیبی مثلا Ctrl+Page Up باید قبل از همین کد ها از علامت ^ استفاده کنید.
به این صورت میشه:
Application.OnKey "^{PGUP}", ""
Application.OnKey "^{PGDN}", ""
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.