جعل اللغة عربية افتراضي عند فتح الملف

[ماجدجلال]

السلام عليكم ,,

من المعلوم ان الاكسيل يفتح افتراضيا علي اللغة العربية , كيف اجعل الاكسيل عند فتح ملفات معينة يقوم بتغير اللغة الي اللغة العربية ,,,

وشكرا لكم

[حسام نور]

- اللغه تحدد على الجهاز بشكل عام وليس على ملفات بعينها . فإن أردت أن تكون اللغة عربيه على جهازك فهذا يكون بأختيارك وستطبق على الأوفيس بشكل عام وهكذا الحال مع اللغة الأنجليزيه

[ماجدجلال]

صممت برنامج بالاكسيل لاحد الاخوان وقد طلب مني ان يفتح هذا البرنامج علي اللغة العربية تلقائيا , حتي يسهل علية العمل علي البرنامج ,,

فهل يمكن اعداد ماكروا او كود يحول الي اللغة العربية عند الفتح ,,,

[حسام نور]

- إذا كان الأوفيس في جهازه مختاراً بأن يعمل على اللغة العربية فسيعمل الملف لديه بهذه اللغه . فستظهر أشرطة الأدوات باللغة المختاره في جهازه هو

[ماجدجلال]

اخي حسام شكرا لك ويبدو انني محظوظ بانك الوحيد الذي ترد علي مشاركاتي ,,,

وارجو منك ان تتحملني لاني اكون بطي الفهم ,,,

نصحتني في الحل الرد السابق بان تكون اللغة العربية هي اللغة المختارة في الجهاز عموما وهذا هو الواقع فعلا

حتي قبل طرد السؤال ,,,

المشكلة اخي هي ليست في ظهور شريط الادوات للاكسيل باللغة الانجليزية

بل شريط الادوات هو باللغة العربية واللغة المختارة والمطبقة علي الجهاز فعلا هي اللغة العربية ,,

عموما ,, عندما يقوم اي شخص بكتابة في ملف اكسيل فتحة قبل قليل تظهر الكتابة بالحروف الانجليزية ( طبعا شريط الادوات هو باللغة العربية ) ولكن عندما يقوم هذا المستخدم بتغير اللغة من اللغة الانجليزية الي العربية , هنا سوف تظهر الكتابة باللغة العربية ,,,

المطلوب ,,, اخي حسام هو ان يقوم الاكسيل تلقائيا بتغير اللغة المستخدم في الكتابة من اللغة الانجليزية الي اللغة العربية ,,حتي يريح المستخدم من تغير هذة اللغة

مع العلم بان اللغة المختارة علي الجهاز عموما والاوفيس خصوصا هي اللغة العربية ,,,ارجو ان يكون السؤال واضح

[حسام نور]

فهمت قصدك أخي الفاضل والحقيقه ليس لدي حال في الوقت الحالي لكن دعني أجرب وابحث لك عن حل ...

والله الموفق

[محمد طاهر عرفه]

اذا كانت هذه المشكلة فى ملف معين

فقم باضافة عملية تغيير اللغة الي ماكرو التشغيل الافتتاحي :

Private Sub Workbook_Open()
SendKeys "+%"
End Sub

و اذا اردته لكل الملفات فاضفه الي

PERSONAL MACRO WORKSHEET

و هنا طبعا لم يتم جعلها افتراضية و لكن تم تغييرها

و أعتقد أن لجعلها افتراضية

جرب

Control pannel

reginal setting

languages

details

default input language

و هذا فى ويندوز اكس بي

[ماجدجلال]

شكرا جزيل لك استاذ محمد

سوف اجرب واوافيك بالنتيجة ,,,

واشكرك الاخ حسام ولة كل الاجر ( الدال علي الخير كفاعلة ) ,,

[ماجدجلال]

السلام عليكم ,,

الكود نجح وممتاز , ولقد طلب مني احد الاخوان اذا كان يستطيع الحصول علي نفس الكود ولكن للاكسيل باصدار me

وشكرا لكم ,,,

[حسام نور]

- لا يوجد أصدار للأوفيس بأسم ( Me ) هذا أسم نسخه للويندوز وهذا لا علاقة له بالكود حيث أن الأوفيس بإصداراته ( 97 - 2000-2003-Xp ) تقبل الكود

وشكراً

تم تعديل يونيو 24, 2005 بواسطه حسام نور

[ماجدجلال]

انا اسف اخي حسام اقصد اصدار اوفيس رقم 2003

وانا فعلا جربت ولم ينجح , وقمت بتجربة حتي قبل ارقاف هذا الرد ,, اذا لم يكن لديك مانع ارجو المساعدة والبحث عن حلا

وشكرا لك ,,,

[محمد طاهر عرفه]

الملف علي اوفيس 2003

altshift.rar

[ماجدجلال]

شكرا جزيلا لك استاذ محمد طاهر ,, وايضا الشكر موصل للاخ حسام نور

اخواني ارجو ان تتحملني وانا والله العظيم اريد الفائدة والتعليم ,,ولم اقوم بهذا الطلب من اجل تعجيز الاخوان هنا رغم قناعتي ان الشي المستحيل هنا في اوفيسنا هو ابسط ما يكون ,,,

لقد جربت الكود السابق في اكسيل باصدار 2000 ولم ينجح , ولعل النتيجة التي توصلت اليها ان فقط علي الاصدراين 2003 وXP فقط ,,,

لذا ارجو منكم اذا امكن تعديل الكود حتي يعمل علي اوفيس 2000 ,,

وانا اسف جدا ,, والله لم اقصد سوي التعليم والفائدة ,,

[محمد طاهر عرفه]

السلام عليكم

الكود غير مرتبط بالاصدار

و المفترض أنه يعمل مع اي اصدار لانه تطبيق لامر send keys

اعتقد ان المشكلة قد تكون ليس فى الكود نفسه و لكن فى مكان وضعه

فالكود يجب ان يوضع فى مكان الاكواد الخاص بالملف ككل و ليس فى ورقة عمل

افتح الملف

اضغط alt+f11

انقر نقرا مزدوجا علي كلمة

this workbook

ثم ضع الكود

و تأكد من أن الاكواد مفعلة فى الملف

و ذلك

من

Tools

macros

security

و تأكد أنها

medium

or

low