ابو تميم

up هل انتهى السؤال ؟؟؟؟ يجب أن يكون هناك حل لحالة عدم إمكانية حماية ملف الاكسل أنا أقترح أن يتم وضع أكثر من حماية على ملف الاكسل ( أي مثل Firewall ) بمعنى أنه إذا تم اختراق جدار الحماية الأول يكون هناك جدار حماية آخر بحيث أنه إذا حاول شخص اختراق ملفاتنا يكون لديه أكثر من جدار حماية على الملف وإذا اخترق جدار الحماية الأول يبقى الملف محمي بجدار حماية آخر وآخر شكرا

أساتذتنا العظماء تحية طيبة بعد تطبيق التعديل الجديد حاولت إضافة تعديل بسيط وهو كما يلي تم تعديل الفورم بإضافة زر ( الكود الجديد ) و Textbox يعمل زر الكود الجديد على إضافة رقم 1 إلى الرقم الموجود في الخلية L4 ويتم كتابة هذا الرقم في الخلية N4 ثم كتابة نفس الرقم في الـTextbox الموجود في الفورم وعند الضغط على زر حفظ التغييرات يتم إضافة رقم 1 إلى الرقم الموجود في الخلية L4 حتى يحفظ آخر رقم تم استخدامه وحسب الكود الخاص بالعلامة القدير عبد الله باقشير والذي تم تعديله بواسطة الاستاذ ابو احمد مشكورا في الفورم تعتبر هنا الخلية N4 هي القائمة المنسدلة في عمود ( الكود ) وهو الذي يظهر في الفورم المشكلة هنا عندما أضغط على زر ( الكود الجديد ) يظهر لدي الرقم المطلوب في الـTextbox والخلية N4 أيضا ولكنه لا يظهر في القائمة المنسدلة للعمود ( الكود ) في الفورم إلا بعد إغلاق الفورم وفتحه مرة أخرى هل يمكن أن نخصص هذا العمود بأن يتم تحديث القائمة المنسدلة له بحسب تغيرها أثناء فتح الفورم أي أنها هنا تتغير والفورم مفتوح ولا تتحدث في قائمة الفورم إلا عند إغلاقه وتشغيله مرة أخرى وزاكم الله خيرا فورم ادخال و تعديل مرن.rar

الأستاذ احمد زمان جزاك الله خيرا كود رهيب وذكي جدا ولكن هل يمكننا التعديل أكثر حيث أن هذا الكود يعمل على تكبير الورقة الحالية بحسب عرض الشاشة وذلك يؤثر على الناحية الجمالية للملف وأنا أريد أن يتم تغيير حجم ودقة العرض فقط للأجهزة ذات دقة العرض المنخفضة التي تقل عن 1024× 768 بحيث يتم تصغير حجم دقة عرض الملف ليتناسب مع هذه الشاشة أما الشاشات التي تزيد دقة عرضعا عن الدقة 1024× 768 فيبقى الملف كما هو دون تأثير لأن هذه الدقة أصلا الملف يظهر عليها بشكل واضح أما الشاشات التي دقتها أقل من ذلك بعض الأعمدة لا تظهر فيها لأن دقة العرض فيها قليلة شكرا وجزاكم الله خيرا

روعة أستاذ عبد الله الفورم يعمل معي الآن بشكل ممتاز شكرا جزيلا لك جزاك الله خيرا

up

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

شكرا أخي ابو احمد على ردك لدي في ملف العمل أكثر من قائمة منسدلة وحاليا هي ثلاثة قوائم منسدلة في ثلاثة أعمدة

up

العلامة والعملاق في عالم الاكسل الأستاذ عبد الله باقشير جزاك الله خيرا وأطال عمرك ورزقك من حيث لا تحتسب منذ أول يوم تم نشر هذا الموضوع وأنا أتابعه وأحلل خفاياه وفهمت بعضا منها وهذا بالنسبة إلي إنجاز عظيم أن أفهم وأحلل ولو نسبة بسيطة جدا من أكواد علامة قدير مثلك ومن ضمن ما وقفت عنده ولم أستطع من تعديله او فهمه الفهم الصحيح هو الاستفادة من قائمة منسدلة موجوده لدي مسبقا وهي قائمة طويله ولا أستطيع وضعها في تعليق على رأس العمود لأني أحتاج إلى تعديلها باستمار بحسب المستجدات وفي الكود الخاص بكم يتم وضع القائمة المنسدلة عن طريق كتابة معلومات القائمة المنسدلة في تعليق على رأس العمود المعني ويظهر في الفورم على شكل قائمة منسدلة ولكن انا كما أسلفت قائمتي طويلة بعض الشيئ وهي معرفة مسبقا بنطاق معين في الملف وتم تحديد اسم له لانه مرتبط بقائمة أخرى تم إنشاء سؤال جديد لتعم الفائدة على الرابط التالي : http://www.officena....showtopic=44043

تحية طيبة للجميع وأسعد الله اوقاتكم بالخير هذا السؤال من موضوع العلامة القدير عبد الله باقشير على الرابط التالي http://www.officena....wtopic=43782= المطلوب في هذا السؤال يتعلق بالقائمة المنسدلة حيث أن القائمة المنسدلة موجوده لدي مسبقا وهي قائمة طويله ولا أستطيع وضعها في تعليق على رأس العمود لأني أحتاج إلى تعديلها باستمرار بحسب المستجدات وفي الكود الخاص بفورم الأستاذ عبد الله باقشير والذي يتم وضع القائمة المنسدلة عن طريق كتابة معلومات القائمة المنسدلة في تعليق على رأس العمود المعني ويظهر في الفورم على شكل قائمة منسدلة ولكن انا كما أسلفت قائمتي طويلة بعض الشيئ وهي معرفة مسبقا بنطاق معين في الملف وتم تحديد اسم له لانه مرتبط بقائمة أخرى هل يمكننا التعديل على الكود بحيث يتم ربط القائمة المنسدلة عن طريق تحديدها باسم النطاق الذي تود فيه معلومات القائمة المنسدلة ويتم تعديل القائمة تلقائيا في الفورم بمجرد التعديل في القائمة الرئيسية والتي تكون في ورقة أخرى في الملف شكرا جزيلا جزاكم الله خيرا

أستاذنا القدير وعملاق عمالقة منتدى أوفيسنا وبشهادة عمالقة المنتدى سلمت يداك وبارك الله فيك ورزقك رزقا حلالا لا يحصى حماية لا تقدر بثمن وقمة في الروعة جزاك الله خيرا ولدي سؤال على الملف هل يمكننا أن نضع كلمة مرور أخرى احتياطية (Admin ) بحيث عندما يكون الملف لدينا يعمل عليه مستخدم يتم تحديد كلمة مرور له وعندما ينساها يتم الدخول على المستخدم الرئيسي Admin ويتم إعادة ضبط كلمة المرور للمستخدم أي أن يكون للملف كلمتين مرور واحدة نعطيها للمستخدم الذي سيعمل على الملف وكلمة المرور الأخرى تكون لمسؤول النظام يستخدمها لصيانة النظام وتهيئة كلمات المرور وجزاكم الله خيرا

ما شاء الله عليك أخي ابو احمد رووووووووووووووووووووعة سلمت يداك وجزاك الله خيرا

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

ما شاء الله أستاذ ابو نصار كود جميل من أنامل ذهبية أدام الله عليك الصحة والعافية

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

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

الاستاذ طارق محمود جزاك الله خيرا الكود يعمل بشكل جيد مرفق ملف يحتوي الكود وتطبيقه جزاك الله خيرا MoveData.rar

شكرا جزيلا على جهودكم أساتذتنا الكرام حلول جميلة جدا جزاكم الله خيرا

تحية طيبة في الملف المرفق أريد الـcombobox أن يعرض القيم التي أكبر من صفر فقط وإذا كانت القيمة صفر ( أي لا يوجد قيم في القائمة سوى - صفر ) يتم إخفاء الـ combobox وإذا تم إدخال قيم في القائمة يتم إظهار الـ combobox comboboxView.rar

up

السادة عمالقة منتدى اوفيسنا الكرام تحية وبعد الكود التالي يعمل على جلب بيانات من ملف إلى جدول في ملف آخر وهو يعمل بشكل جيد لكنه طويل بعض الشيء ( وذلك لجهلي في الأكواد ولأني جديد على ذلك ولا زلت أتعلم ) شرح الكود يعمل على جلب البيانات من ملف رقمه في الخلية F2 بحيث أن هذا الرقم يتغير بتغير الملف المراد جلب بياناته ويقوم الكود بالتوجه إلى هذا الملف ذو الرقم حسب المسار المحدد ويقوم بجلب البيانات منه إلى ملف العمل بحيث يتم جلب جميع الجدول ابتداء من الخلية A12 وحتى الخلية F12 وبعد ذلك يقوم بتجاهل الخلايا من G12 - J12 ويجلب بعدها الخلية K12 ويقوم بنسخها في ملف العمل كما هو موضح في الكود طبعا الكود مطبق على الخلايا من السطر A12 ولغاية السطر A49 كما غي الكود Private Sub CommandButton1_Click() [A12:F12] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$16:$F$16" [A13:F13] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$17:$F$17" [A14:F14] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$18:$F$18" [A15:F15] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$19:$F$19" [A16:F16] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$20:$F$20" [A17:F17] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$21:$F$21" [A18:F18] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$22:$F$22" [A19:F19] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$23:$F$23" [A20:F20] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$24:$F$24" [A21:F21] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$25:$F$25" [A22:F22] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$26:$F$26" [A23:F23] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$27:$F$27" [A24:F24] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$28:$F$28" [A25:F25] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$29:$F$29" [A26:F26] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$30:$F$30" [A27:F27] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$31:$F$31" [A28:F28] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$32:$F$32" [A29:F29] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$33:$F$33" [A30:F30] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$34:$F$34" [A31:F31] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$35:$F$35" [A32:F32] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$36:$F$36" [A33:F33] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$37:$F$37" [A34:F34] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$38:$F$38" [A35:F35] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$39:$F$39" [A36:F36] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$40:$F$40" [A37:F37] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$41:$F$41" [A38:F38] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$42:$F$42" [A39:F39] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$43:$F$43" [A40:F40] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$44:$F$44" [A41:F41] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$45:$F$45" [A42:F42] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$46:$F$46" [A43:F43] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$47:$F$47" [A44:F44] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$48:$F$48" [A45:F45] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$A$49:$F$49" [H12] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$16" [H13] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$17" [H14] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$18" [H15] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$19" [H16] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$20" [H17] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$21" [H18] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$22" [H19] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$23" [H20] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$24" [H21] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$25" [H22] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$26" [H23] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$27" [H24] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$28" [H25] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$29" [H26] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$30" [H27] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$31" [H28] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$32" [H29] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$33" [H30] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$34" [H31] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$35" [H32] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$36" [H33] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$37" [H34] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$38" [H35] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$39" [H36] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$40" [H37] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$41" [H38] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$42" [H39] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$43" [H40] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$44" [H41] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$45" [H42] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$46" [H43] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$47" [H44] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$48" [H45] = "='D:\CCV_MOJ\data\[" & [F2] & ".xlsb]" & [F2] & "'!$K$49" End Sub

السلام عليكم في الطابعات يمكن الطباعة على نفس الصفحة عدد من الأوراق بشرط أن تكون الصفحات مطبوعة لأنه لا يكرر الطباعة على نفس الصفحة بمعنى إذا أردنا طباعة 4 صفحات من نفس الصفحة يجب أن تكون الـ4 صفحات موجودة في الملف فإذا كان الملف كبير فلا مشكلة لان النظام يعد الصفحات بحسب رقم الصفحة أما إذا كان لدينا صفحة واحدة يجب نسخ هذه الصفحة أربعة مرات على نفس الملف ثم الطباعة وبهذا يكون لدينا في الملف 4 صفحات من نفس الصفحة وتتم الطباعة كما في في الصورة من خصائص الطابعة يتم البحث عن تبويب Finishing أو تخطيط Layout أي تبويب آخر يكون فية خيار عدد الصفحات في الورقة الواحدة ويكون بجانبها قائمة منبثقة يتم الاختيار منه عدد الصفحات في الورقة الواحدة Paper per sheet حدد عدد الصفحات التي ترغب في طباعتها على الورقة ( ١ أو ٢ أو ٤ أو ٦ أو ٩ أو ١٦ ) انظر إلى الصورة في المرفق وهي مثال على طابعة من نوع HP 3050 و هذا الخيار يختلف من طابعة إلى أخرى ولكنه في النهاية يكون في صفحة خصائص الطابعة أو يمكن مراجعة دليل المستخدم للطابعة HP P3005 على الرابط التالي http://itp.tugraz.at...05_use_ARWW.pdf

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

جزاك الله خيرا أخي الصمت المتحدث بعد البحث طوال الليلة الماضية على الانترنت عثرت على نسختين بروابط مباشرة الأولى نسخة إنجليزية على الرابط http://care.dlservic...6.exe?lcid=1033 وقمت بتجربتها وهي تعمل بشكل ممتاز ( وهذه النسخة رابط واحد فقط مباشر ( إضغط وحمل مباشرة ) حجم النسخة 625MB والنسخة الأخرى عربية على الرابط https://skydrive.liv...558B0C7853F!233 ولكن للأمانه لم أجرب النسخة العربية حتى الآن لأني لم أنتهي بعد من تنزيلها كاملة وبعد تنزيلها سأضع هنا حالة النسخة وهل تعمل أو لا تعمل ليستفيد منها أكبر قدر ممكن من الأعضاء شكرا وجزاكم الله خيرا

UP