أكواد الاكسيل (ID)ـ

[ahmed00]

xlcommands.rarالسلام عليكم ورحمة الله وبركاته

لا أعرف ان كان الملف هذا موجود علي المنتدي أو غير موجود وفي حالة وجود الملف آمل من اساتذتي المشرفين حذفه من المنتدي بس الملف ان شاء الله مفيد جداً وهو يحتوي علي كل الـ آي دي الخاص بالقوائم والاكسيل

أخوكم أحمد

[هشام شلبى]

اخى الكريم

واضح ان الموضوع مهم ومفيد جزاك الله خيرا

بس ممكن تسهل العملية شوية وتقولى ماذا تعنى هذه الكتابات

واكون شاكرة

[ahmed00]

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

أخي bosh

الملف المرفق صنعه احد الاعضاء وانا مقتبسة , به كود لاخفاء الخيارات في قائمة ادوات بحيث تكون غير نشطه والكود اللي في هذا الملف به الID الخاص بهذا الامر Options

..............

والملف اللي انا وضعته في الاول واللي أنا مقتبسة من وموقع آخر به كل الـ ID الخاص بالاكسيل يعني لو انت عايز تخلي الامر حفظ غير نشط تضع الكود الخاص به في الملف الاول ولو عايز تخلي القائمة كلها غير نشطه من خلال هذه الـ ID المرفقة وجرب وان شاء الله بالتوفيقOptions.rar

أخوك

أحمد

[ahmed00]

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

هذا شرح آخر بدون ملفات (طبعاً الماكرو ده اللي في ملف Options اللي صنعه أحد الاعضاء )ـ

 Sub Button1_Click()
'
' Button1_Click Macro
' Macro recorded 6/21/2008 by neid
'

'
Application.CommandBars("Tools").FindControl[size="6"](ID:=522[/size]).Enabled = False


End Sub
Sub Button3_Click()
'
' Button3_Click Macro
' Macro recorded 6/21/2008 by neid
'

'
Application.CommandBars("Tools").FindControl[size="6"](ID:=522[/size]).Enabled = True

End Sub

هذا نفس الكود اللي في الملف السابق وطبعاً ممكن تغير الرقم من خلال الملف الاول الـ فيه الـID

يعني Command الامر New = Id:18

وCommand الامر Macro = Id:30017

وهكذا

[هشام شلبى]

اخى الكريم شرحك رائع ماشاء الله

سوف اجرب ما قلت ومن فضلك اذا سمحت لى ان اجرب واسالك اذا سمح وقتك

اختك bosh

[خالد الشاعر]

برجاء من الاخ ahmed00

افادتنا اكثر عن ارقام الاوامر الاخرى

ولك جزيل الشكر