الغاء الكليك يمين في شريط الصفحات

[وائل الاسيوطي]

اخواني الكرام 

انا كنت اضفت امر لاحد الكواد لالغاء الكليك يمين في شريط الصفحات  وبالفعل الغاها ولكنه الغاها علي كل الملفات هل يمكن تعديل الكود ليعمل علي هذا الملف فقط بدون ان تتأثر باقي الملفات

Application.CommandBars("Ply").Enabled = false

 

 

[الـعيدروس]

حط في حدث اغلاق الملف 

Application.CommandBars("Ply").Enabled = true

[ياسر العربى]

دائما اخوانا  هنا سباقين  بالحلول 

او انا اللي دايما بتأخر مش عارف 

المهم  مشكور اخي  العيدروس

واسمحلي   لازم احط التاتش المصري بردو

دا عند غلق الملف مثل ما قال  اخي الغالي

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

اما لو من شيت لاخر  فا تبقي كدا

Private Sub Worksheet_Activate()
Application.CommandBars("Ply").Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("Ply").Enabled = True
End Sub

تقبل مروري المتواضع

ياسر العربي

[مختار حسين محمود]

السلام عليكم ورحمة الله

أخى  ياسر العربى بارك الله فيك

بالنسبة  للكودين

Private Sub Worksheet_Activate()
Application.CommandBars("Ply").Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("Ply").Enabled = True
End Sub

جرب الاتى :  ضع الكودين فى حدث الشيت 1   احفظ الملف وأنت على الشيت1 عشان لما يفتح الملف يفتح على الشيت 1

عندما يفتح الملف اعمل كليك يمين على الشيت 1 هتلاقي كليك يمين شغالة . فما الحل ؟

 

[ياسر العربى]

ااستاذي الغالي مختار حسين محمود

شكلك عاوز تزنقني عشان حطيت التاتش بتاعي

بس انا ههرب باي كود

يجدع الواحد كدا يخاف يحط تاتشات تاني

 

book.rar

[مختار حسين محمود]

برافو أهو كده يبقى التاتش المصرى