[حل شده] مشکل در اجرای ماکرو غیر فعال کردن راست کلید روی شیت ها

[میثم مقدم نیا]

سلام
من به کمک کد زیر منوی راست کلیک را روی شیت هام حذف کردم

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = True
End Sub
 
Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub 

مشکل اینجاست که الان این کد را حذف کردم ولی عمل کلید راست روی شیت ها عمل نمیکند حتی در سایر فایل های اکسل فایل پیوست را ببیند و کمکم کنید

اما با یکم تغییر در کد مشکل حل شد

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = False
End Sub
 
Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = True
End Sub 

ولی من میخوام فقط همین فایل منوی کلیک راستش حذف بشه
ممنون از کمک شما

[M_ExceL]

سلام
من به کمک کد زیر منوی راست کلیک را روی شیت هام حذف کردم

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = True
End Sub
 
Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub 

مشکل اینجاست که الان این کد را حذف کردم ولی عمل کلید راست روی شیت ها عمل نمیکند حتی در سایر فایل های اکسل فایل پیوست را ببیند و کمکم کنید

اما با یکم تغییر در کد مشکل حل شد

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = False
End Sub
 
Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = True
End Sub 

ولی من میخوام فقط همین فایل منوی کلیک راستش حذف بشه
ممنون از کمک شما

سلام
از کد زیر بجای کدی که قرار دادید استفاده کنید :

Private Sub Workbook_Open()
Application.CommandBars("cell").Enabled = False
End Sub

این کد زمانی که فایل رو باز می کنید اجرا میشه.
جهت فعال سازی منوی راست کلیک، عبارت False رو به True تغییر بدید.

[میثم مقدم نیا]

سلام
از کد زیر بجای کدی که قرار دادید استفاده کنید :

Private Sub Workbook_Open()
Application.CommandBars("cell").Enabled = False
End Sub

این کد زمانی که فایل رو باز می کنید اجرا میشه.
جهت فعال سازی منوی راست کلیک، عبارت False رو به True تغییر بدید.

سلام دوست عزیزم
این کد شما را خودم میدونستم
این کد نه تنها روی شیت کلید راست را حذف میکنه روی سل ها هم راست کلید را حذف میکنه
و مشکل این کد هم مثل کد خودم تا غیر فعالش نکنید کلید راست در فایل های جدید که ایجاد میکنیم غیرفعال میشه

[M_ExceL]

سلام دوست عزیزم
این کد شما را خودم میدونستم
این کد نه تنها روی شیت کلید راست را حذف میکنه روی سل ها هم راست کلید را حذف میکنه
و مشکل این کد هم مثل کد خودم تا غیر فعالش نکنید کلید راست در فایل های جدید که ایجاد میکنیم غیرفعال میشه

سلام
بله، بنده منظورتون رو درست متوجه نشده بودم.
از کد های زیر استفاده کنید :

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CommandBars("Ply").Enabled = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CommandBars("Ply").Enabled = True
End Sub

[میثم مقدم نیا]

سلام
بله، بنده منظورتون رو درست متوجه نشده بودم.
از کد های زیر استفاده کنید :

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CommandBars("Ply").Enabled = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CommandBars("Ply").Enabled = True
End Sub

مرسی ممنون از راهنمایتون مثل همیشه عالی بود