الحامد الشاكر

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

الأخ أبو حنين المحترم شكراً للرد و ألفت عنايتكم لما يلي: عند فتح الملف يعطي مباشرةً نافذة اعتراضية بعنوان "اختيار كلمة المرور" (حتى الآن لم تقم بإختيار كلمة مرور هل تود عمل ذلك الآن ) ثم بعد الضغط على خبار NO تظهر الشاشة الترحيبة لا أظن أنك قصدت هذا السيناريو !!

الشكر للأخوة على الحل المقترح لكن لطفاً أريد الحل يشمل أي ورقة عمل جديدة يتم إضافتها بالإضافة إلى تطبيقه على الخلية A1 في أي ورقة عمل مع فائق الإحترام

بارك الله فيك اخي أبو حنين و سدد الله خطاك

يتوفر حالياً لدي الكود التالي : Private Sub Worksheet_Change(ByVal Target As Range) If Target.address <> "$A$1" Then Exit Sub Sheets(Target.Value).Select End Sub كيف يمكن توسيع مجاله ليشمل كل أوراق العمل مهما كان عددها أو أية أوراق جديدة تم إنشاؤها

الأخوة الكرام سؤالي عن طريقة الإنتقال بين أوراق العمل (Sheets) من خلال خلية مشتركة بين جميع الأوراق ولتكن A1 من خلال كتابة إسم الورقة مثلاً (Sheet2) داخل تللك الخلية فينتقل مباشرة للورقة التي تحمل هذا الإسم بالضغط على زر (ENTER) مع فائق الإحترام والتقدير

الأخوة الكرام / الأخ ابو حنين المحترم عطفاً على مشاركة الأخ أبو حنين المميزة والرائعة من خلال الرابط: http://www.officena.net/ib/index.php?showtopic=42091&pid=240044&st=0&#entry240044 هل يمكن التعديل بحيث يتحقق ما يلي: - أن تكون شاشة الولوج مستقلة بحيث تظهر بشكل مستقل قبل فتح الملف لتعترضنا بطلب إختيار إسم مستخدم و كلمة مرور ولنفترض المستخدمين هم : ADMIN , USER و USER فقط لإستعراض الملف دون القدرة على التعديل والصلاحيات كلها لـ ADMIN وفي حال تعبئة كلمة سر خاطئة يتم غلق الشاشة تلقائياً مع فائق الإحترام والتقدير

جعلها يا أخي أبو حنين في ميزان حسناتك يسر الله لك أمورك كيفما اتجهت

الأخ أبو حنين المحترم عمل أكثر من رائع .. جزاك الله خيراً هل من الممكن توضيح ما يقصد بالسطر التالي داخل الكود : For t = 1 To 11 æÑÞÉ2.Columns(t).ColumnWidth = Columns(t).ColumnWidth وكيف التعديل في حالة نقل القيم بدون معادلات مع فائق الإحترام

السلام عليكم ورحمة الله وبركاته أخشى أن الموضوع قد تكرر طلبه ولكن أعتقد بحالات مختلفة مع العلم إلى أنني أطلعت على كثير من مشاركات الأخوة في المنتدى الكريم أرفقت الملف الذي يشرح طلبي لما يخص ترحيل مجال من الخلايا. وجزاكم الله خيراً Posting Data.zip

جزاك الله خيراً سلمت يداك

الأخ طارق المحترم ما شاء الله جزاك الله خيراً هل يمكن لك بمعروف آخر وهو شرح كيفية عمل هذا الزر وكيفية تطبيقه على المجال الذي أريده جزاك الله خيراً

الأخوة الكرام السلام عليكم ورحمة الله وبركاته يرجى الإطلاع على الملف االمرفق والمساعدة في إيجاد الحل الموضح داخل الملف. ولكم جزيل الشكر Project.zip

سلمت يداك وجعلها الله في ميزان جسناتك ويسر لك أمورك

سلمت يداك أخي خبور الرائع جعله الله في ميزان حسناتك ولكن ممكن أن تتطلع على المرفق والغريب أنه عند تغيير قيم الخلايا وإختيار الرقم 30 لم يتم يعطي نتيجة بالرغم من وجود سيناريو يحقق الرقم المدخل "30" مع فائق الإحترام حاصل جمع 1.zip

الأخ خبور المحترم شكراً للمجهود ولكن لم يعمل الكود حيث أن الخلايا لا تتلون يرجى المساعدة في كود موسع لأكثر من خليتين وما هو الحال بالنسبة عندما يكون هناك أكثر من سيناريو للحل من ضمن نطاق الخلايا المحدد ولطفاً إرفاق الملف متضمناً الكود مع فائق الإحترام

الأخوة الكرام يرجى المساعدة

السيد أبو تميم المحترم بالضبط هذا هو القصد ولك جزيل الشكر

الأخوة الكرام تحية طيبة وبعد يرجى فتح الملف المرفق والذي يشرح الطلب مع قبول فائق الإحترام حاصل جمع.zip

الأخوة الأفاضل يرجى التفاعل مع الموضوع لطفاً ، فأنا بحاجة ماسة لتطبيق التفقيط باللغة الانكليزية داخل ملف الوورد مع فائق الإحترام

الأخ الفاضل المطلوب التطبيق على ملف وورد وليس إكسيل مع فائق الغحترام

الأخوة الكرام كيف يمكن إضافة الكود إلى ملف وورد

أرجو من الأخوة الكرام التفاعل مع الموضوع المطروح لطفاً كما عودتمونا دوماً

أشكركم على تعاونكم ولكن الرجاء الحار إمكانية التطبيق بالإنكليزي على ملف وورد أنا بحاجة لذلك

السلام عليكم ورحمة اله وبركاته يرجى توضيح طريقة إدراج معادلة للتفقيط في ملف وورد بحيث يتم وضع الرقم وعند تنفيذ الكود يتم التفقيط تلقائياً له والكود مرفق في الملف المرفق مع التحية تفقيط إكسيل إنكليزي.rar