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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • armani

    • 2018/12/25
    • 49

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

    سلام خدمت دوستان
    مممنون میشم راهنماییم کنید.
    می خواستم بدونم راهی وجود داره که با کد نویسی کاری کرد که از جابجا شدن میان شیت ها از طریق Ctrl+ Page down یا ctrl+page up جلوگیری کرد ؟
    سپاسگزارم
    Last edited by armani; 2019/10/14, 13:00.
  • majid_mx4

    • 2012/06/25
    • 699

    #2
    با سلام

    با فشار کلید های 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

      • 2018/12/25
      • 49

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

      کامنت

      چند لحظه..