[حل شده] حرکت میان شیت های اکسل

[armani]

سلام خدمت دوستان
مممنون میشم راهنماییم کنید.
می خواستم بدونم راهی وجود داره که با کد نویسی کاری کرد که از جابجا شدن میان شیت ها از طریق Ctrl+ Page down یا ctrl+page up جلوگیری کرد ؟
سپاسگزارم

[majid_mx4]

با سلام

با فشار کلید های Alt+F11 وارد محیط ماکرو شوید روی ThisWorkbook کلیک کرده و دستورات زیر را وارد کنید و فایل را با پسوند Xlsm ذخیره کنید فایل را بسته و باز کنید.

Private Sub Workbook_Open()
Application.OnKey "^{PGUP}", ""
Application.OnKey "^{PGDN}", ""
End Sub

Private Sub Workbook_Activate()
Application.OnKey "^{PGUP}", ""
Application.OnKey "^{PGDN}", ""
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.OnKey "^{PGUP}", ""
Application.OnKey "^{PGDN}", ""
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{PGUP}"
Application.OnKey "^{PGDN}"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "^{PGUP}"
Application.OnKey "^{PGDN}"
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.OnKey "^{PGUP}"
Application.OnKey "^{PGDN}"
End Sub

موفق باشید میر

[armani]

بسیار سپاسگزارم
ممنون از راهنماییتون ، حل شد