پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: از بين رفتن امکان راست کليک روي سلها و شيتها در کل اکسل

  1. #1


    آخرین بازدید
    2014/07/28
    تاریخ عضویت
    July 2014
    نوشته ها
    20
    امتیاز
    45
    سپاس
    0
    سپاس شده
    35 در 16 پست
    تعیین سطح نشده است

    از بين رفتن امکان راست کليک روي سلها و شيتها در کل اکسل

    من داشتم يک سري کد را در فايلهايم امتحان مي کردم که کلا" راست کليک روي سلها و شيت هايم غير ممکن شده، توي کل اکسل! حالا چکارکنم؟
    کدهايي که روش کار مي کردم اينها بود: (سه تا کد)
    کد:
    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    MsgBox "No RightClick"
    Cancel = True
    End Sub
    ---------------------------------
    Private Sub Workbook_Open()
    Application.CommandBars("cell").Enabled = False
    End Sub
    --------------------------------- 
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("cell").Enabled = True
    End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2014/07/28
    تاریخ عضویت
    July 2014
    نوشته ها
    20
    امتیاز
    45
    سپاس
    0
    سپاس شده
    35 در 16 پست
    تعیین سطح نشده است

    الآن يک فايل اگر تشکليل دهم و و کد زير را در آن بگذارم:
    کد:
    Private Sub Workbook_Open()
    Application.CommandBars("cell").Enabled = True
    Application.CommandBars("Sheet").Enabled = True
    End Sub
    فقط در همان فايل راست کليک روي سلها فعال مي گردد ولي شيتها همچنان راست کليک ندارند! و اين فقط در همان فايل است ولي بقيه اکسل کلا" راست کليک سل و شيت ندارند!
    نمي دانم چکار کرده ام! مگر مي شود توي يک فايل کدي نوشته باشم و در کل اکسل به صورت دائم تنظيمات را عوض کرده باشد؟
    هر کدام از کدهاي فوق را که امتحان مي کردم ممکن است TRUE ها و FALSE ها را عوض کرده باشم ولي به هيچ وجه PRIVATE ها را دست نزده ام که مثلا" به PUBLIC تغيير يافته باشد!
    بايد اکسل را دوباره نصب کنم؟

  4. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    524
    امتیاز
    1130
    سپاس
    2,844
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط K1P نمایش پست ها
    الآن يک فايل اگر تشکليل دهم و و کد زير را در آن بگذارم:
    کد:
    Private Sub Workbook_Open()
    Application.CommandBars("cell").Enabled = True
    Application.CommandBars("Sheet").Enabled = True
    End Sub
    فقط در همان فايل راست کليک روي سلها فعال مي گردد ولي شيتها همچنان راست کليک ندارند! و اين فقط در همان فايل است ولي بقيه اکسل کلا" راست کليک سل و شيت ندارند!
    نمي دانم چکار کرده ام! مگر مي شود توي يک فايل کدي نوشته باشم و در کل اکسل به صورت دائم تنظيمات را عوض کرده باشد؟
    هر کدام از کدهاي فوق را که امتحان مي کردم ممکن است TRUE ها و FALSE ها را عوض کرده باشم ولي به هيچ وجه PRIVATE ها را دست نزده ام که مثلا" به PUBLIC تغيير يافته باشد!
    بايد اکسل را دوباره نصب کنم؟
    با سلام ،
    بهتر شما کدهاتون رو Activate و Deactivate بنوسید.
    کد:
    Private Sub Workbook_Activate()
    Application.CommandBars("cell").Enabled = False
    End Sub
    
    Private Sub Workbook_Deactivate()
    Application.CommandBars("cell").Enabled = True
    End Sub
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  5. سپاس ها (2)


  6. #4


    آخرین بازدید
    2014/07/28
    تاریخ عضویت
    July 2014
    نوشته ها
    20
    امتیاز
    45
    سپاس
    0
    سپاس شده
    35 در 16 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط علی فاطمی نمایش پست ها
    با سلام ،
    بهتر شما کدهاتون رو Activate و Deactivate بنوسید.
    کد:
    Private Sub Workbook_Activate()
    Application.CommandBars("cell").Enabled = False
    End Sub
    
    Private Sub Workbook_Deactivate()
    Application.CommandBars("cell").Enabled = True
    End Sub
    متشکرم،
    دفعه بعد از کد شما استفاده مي کنم، ولي همين الآن که راست کليک روي کل فايلهاي اکسلم غير فعال شده چه کار مي توان کرد؟ چيزي به نظرتان مي رسد؟

  7. #5


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,570
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود
    یه سوال برام پیش اومد . شما وقتی رو یه اکسل دیگه داری کار میکنی این فایل که کد ها رو توش نوشتی باز هستش؟ من کد ها رو تست کردم وقتی که این فایل باز باشه این مشکل وجود داره

    حالا اینجوری کد هها رو بنویس ببین مشکل حل میشه
    کد:
    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    MsgBox "No RightClick"
    Cancel = True
    End Sub
    
    Private Sub Workbook_Activate()
    Application.CommandBars("cell").Enabled = False
    End Sub
    
    Private Sub Workbook_Deactivate()
    Application.CommandBars("cell").Enabled = True
    End Sub
    
    Private Sub Workbook_Open()
    Application.CommandBars("cell").Enabled = False
    End Sub
    
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("cell").Enabled = True
    End Sub
    در پناه خداوندگار ایران زمین باشید و پیروز


  8. #6


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    524
    امتیاز
    1130
    سپاس
    2,844
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط K1P نمایش پست ها
    متشکرم،
    دفعه بعد از کد شما استفاده مي کنم، ولي همين الآن که راست کليک روي کل فايلهاي اکسلم غير فعال شده چه کار مي توان کرد؟ چيزي به نظرتان مي رسد؟
    با سلام ،
    ببینین وقتی فایلی که کدها توش نوشته شده باز باشه و از طریق همین workbook فایل جدید باز کنی عملا راست کلیک نخواهی داشت فقط کافیه کدهاتو با کدهای که برات نوشتم عوض کنی مشکل حل میشه.
    در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان




  9. #7


    آخرین بازدید
    2014/07/28
    تاریخ عضویت
    July 2014
    نوشته ها
    20
    امتیاز
    45
    سپاس
    0
    سپاس شده
    35 در 16 پست
    تعیین سطح نشده است

    ممنونم دوستان، ولي حواسم بود، هيچ فايل ديگري باز نبود و هيچ add-in يا همچين چيزي هم اضافه نشده و باز نبود.
    ولي يک قسمت مشکلم در مورد سل ها اينگونه حل شد:
    در محيط vba کليدهاي ctrl+g را زدم تا پنجره immediate باز شد، سپس کد application.commandbars("cell").enable=true را نوشته و اينتر کردم و مشکل سل ها حل شد.
    فقط مشکل راست کليک شيت ها همچنان پابرجا است! به جاي cell عبارت sheet را در کد فوق استفاده کرده و مجددا" مراحل را تکرار کردم ولي هنوز مشکل شيت ها پابرجاست و راست کليک روي آنها جواب نمي دهد، آيا کمکي مي توانيد بفرماييد؟

  10. #8


    آخرین بازدید
    2014/07/28
    تاریخ عضویت
    July 2014
    نوشته ها
    20
    امتیاز
    45
    سپاس
    0
    سپاس شده
    35 در 16 پست
    تعیین سطح نشده است

    از آقاي اسماعيلي و آقاي فاطمي تشکر مي کنم، ولي وضعيت اکسل من به صورتي در آمده بود که هيچکدام از کدهاي پيشنهادي به اين صورت جواب نمي داد.
    البته بالاخره مشکل راست کليک شيتها را هم درستش کردم!
    همه چي از اين دو پست سايت شروع شد:
    غیر فعال کردن راست کلیک
    و يک پست ديگر که در همين زمينه آقاي شمس العلما ايجاد کرده بودند
    پس با احتياط از دستوراتشان استفاده کنيد!
    براي درست کردن راست کليک روي شيت ها هم از دستور
    application.commandbars("PLY").enable=true در همان پنجره immediate استفاده کردم، منتهي اول يک فايل خام اکسل باز کردم، بعد فقط فايل را به نحوي بستم که قاب خود اکسل باز بماند، بعد داخل VBA شدم و کد را نوشته و اينتر کردم.
    وقتي اينتر مي کنيد درست است که نشانگر موس يک خط پايين مي آيد ولي کد هم به همراه آن RUN مي شود.
    راهنمايي ام را هم از سايت مايکروسافت:
    Mouse right click no longer working in excel - Microsoft Community
    گرفتم، البته کلي باهاش ور رفتم تا درست شد.
    از همه دوستان که وقت گذاشتند تشکر مي کنم، اينها را هم نوشتم که در جريان قرار بگيريد اگر مشکل اينجوري داشتيد چکار بايد بکنيد.
    از همگي ممنونم.
    مؤيد باشيد.

  11. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. مشكل من : نحوه حذف كردن شيتهاي اضافي با كد vb
    توسط misammisam در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2014/04/18, 06:45
  2. جمع آيتمهاي يكسان
    توسط rosesefid در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2013/11/18, 17:41
  3. صفحه بندي صحيح شيتها در FOOTER
    توسط hamidreza313 در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 2
    آخرين نوشته: 2013/02/26, 18:37
  4. درخواست وي بي براي جستجو
    توسط sajad2000 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/11/17, 16:26
  5. پسورد براي شيتها
    توسط paz در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2010/12/25, 11:33

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

Application.CommandBars ویژوال اکسل آموزش

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد