gelani

عفواً

الطلوب في الملف المرفق .

السلام عليكم

اريد عمل زر طباعة مخفي ولا يظهر إلا إذا أكتملت البيانات .

أطيب تحيه للجميع .

تحياتي وتقديري للأخ يوسف وجميع الأعضاء .

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

هل بالإمكان إستخدام دالة iif الشرطية . وكيف ذلك ؟؟؟

جزاك الله خيراً وزادك علماً يا أخ يوسف .

جاري تجربة العمل وأشكرك على اهتمامك رعاك الله .

تحياتي لك ولجميع أسرة هذا المنتدى الرائع .

أشكركم على الرد وهذا هو الجدول .

وفقكم الله وزادكم علماً

___________.zip

وكيف أستطيع إظهار ما أخفيت إذا أحتجت إليه .

وفقك الله

رائع جدا وفقكم الله

كيف استطعت إخفاء الجداول والإستعلامات والماكرو ؟ وكيف استطعت تعطيل الشفت أثناء الدخول؟

وكيف نستطيع الدخول للتصميم لمحاكاته .

تحياتي وتقديري .

أريد عمل جدول يحتوي على الاسم - العمر - تاريخ الدخول - إجمالي المبلغ . وهنا في إجمالي المبلغ أريد أن أضع شروط وهي :-

إذا كان العمر أكبر من 8 سنوات وتاريخ الدخول بعد عام 2000 م يحصل على 150 ريال وإذا كان أقل من 8 سنوات لا يحصل على شيء وإذا كان التاريخ قبل عام 2000 م يحصل على 100ريال إذا كان العمر أكبر من 8 سنوات .

تحياتي وتقديري للجميع سلفاً .

الأخ نزار أشكركم على الرد وأفيدكم بأنني عند فتح الملف والضغط على ALT+F11 والذهاب إلى THISWORKBOOK والإطلاع على الكود ومحاولة تغيير الرسالة فلم اتمكن من ذلك وحاولت نسخ الكود الى ورقة أخرى ولم أتمكن أيضا حيث لا يسمح على الرغم من أنه غير محمي . ولعل أحد الأخوة يجرب ذلك ويوافينا علماً بأنني تأكدت من عدم وجود عيب في جهازي حيث أنني أستطيع تحرير الأكواد في الأوراق الأخرى .

تحياتي وزتقديري لجهودكم رعاكم الله .

مع التحية والتقدير للأخ نزار سليمان

وفقك الله وزادك علماً

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

شاكرين جهودكم .

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

فهل نحضى بشرح مفصل للحماية بأي طريقة ترونها رعاكم الله .

الأخ الفاضل خبور خير وفقكم الله وزادكم علماً

الشرح واضح ومفهوم ونتابع الموضوع بحرص شديد لما له من اهمية .

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

منتظرين ومتابعين .

الشكر موصول.

رائع جداً وفقك الله .

كيف استطعت تحديد نطاق ادخال البيانات من الصف الخامس العمود b

وهل استطيع دخال البيانات في صفحة أخرى لا أريد أن يراها المستخدم ؟؟

وباقي الأسئلة نؤجلها الى ما بعد الدروس القادمة .

أسأل الله أن يزيدك علماً .

نسأل الله أن يمن عليه بالصحة والعافية .

طهور إن شاء الله .

ماشاء الله تبارك الله

نشكر خبيرنا وأستاذنا الكبير على ما يقدمه لنا في هذا المنتدى الرائع من إبداع .

السئوال هو - كيف استطعت إخفاء بعض النماذج دون أخرى ؟؟؟.

شاكرين لكم جهودكم .

ضع علامة يساوي = في الورقة 2 الخلية F11 ثم اذهب للورقة 1 واضغط على الخلية A2 .

رائع جداً

أسأل الله لك التوفيق وأن يزيدك علماً وأن لا يحرمنا من إبداعاتك وعاجزين عن الشكر .

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

تحياتي وتقديري .

السلام عليكم

تحياتي وتقديري لجميع أعضاء ومشرفي هذا المنتدى الرائع

أرجو الإطلاع على المرفق وشرح كيف أستطيع أن أدخل البيانات عبر النموذج المرفق مع توضيح طريقة كتابة النسبة المئوية 5% مثلا حيث أنني واجهت صعوبات في ذلك حيث يجب علي كتابتها بهذا الشكل 0.05 وماعدا ذلك تظهر 500% وهل أستطيع إستدعاء البيانات عبر نفس أو نموذج آخر لتعديلها .

وجزاكم الله خيرا

__________________.rar

رائع جداً كعادتكم وفققكم الله .

هناك ملاحظة أن الوميض ينتقل الى الخلايا الأخرى مع المؤشر .

تحياتي .

وفقك الله وجزاك خيراً وجعل ما تقومون به خالصاً لوجهه الكريم وأن يمتعكم بالصحة والعافية .

السلام عليكم

ارغب في حماية ورقة عمل بحيث أنه عند الفتح تتم المقارنة بين القيمة الموجودة في العمود B من الصفحة الأولى AAوالثانية BB فإذا كانت مختلفة يتم إقفال البرنامج

Private Sub Workbook_Open()

If Sheets("aa").Range("b1") <> Sheets("bb").Range("b1") Then

Else

If Sheets("aa").Range("b2") <> Sheets("bb").Range("b2") Then

Else

If Sheets("aa").Range("b3") <> Sheets("bb").Range("b2") Then

Else

If Sheets("aa").Range("b4") <> Sheets("aa").Range("b4") Then

Application.ActiveWorkbook.Close savechanges = yes

End If

End If

End If

End If

End Sub

وقد كتبت الكود أعلاه ولم يعمل معي - حاولت إرفاقة ولم أستطع

أرجو من ذوي الخبرة المساعدة ولكم منا خالص الدعاء .

أطيب تحية .

السلام عليكم .

يبدو من سؤال الأخ أن لديه برنامج ولا يرغب في السماح للعمل به إلا على جهاز محدد .

هذا ما نبحث عنه جميعاً فمثلا . استطعت إستخراج رقم تسلسل الجهاز وظهر معك الرقم التالي 11989852 وترغب في حالة تشغيل البرنامج يقوم البرنامج بفحص الرقم الخاص بالجهاز وإذا لم يكن هو الرقم المعتمد يقفل البرنامج ولا يسمح بالتشغيل .

و في حالة تهيئة ( فورمات ) الجهاز يتم تغيير رقم تسلسل الجهاز وهو ما يبحث عن حل له .

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

تحياتي وتقديري للجميع

شكراً جزيلا وجزاك الله خيراً

حقيقة أسعدني ردكم والإضافة ممتازة وتعمل بشكل رائع .

إلا أنني لاحظت أنه بتكرار فتح نفس البرنامج تأتي رسالة بفشل الأسلوب ويتم الفتح على الصفحة المسماة ( إظهار ) والتي وضعت بها كود إظهار الصفحات

المخفية ويتم إخفاءالصفحة المسماة xxx حسب الكود . والمزعج هنا هو ظهور الرسالة المشار اليها وعدم إقفال البرنامج كما هو الحال لأول مرة يتم تشغيله .

أرجو إعادة النظر والتكرم بما لديكم .بعد تغيير تاريخ الجهاز الى مابعد التاريخ الموجود في الكود وإعادة الفتح أكثر من مرة .

وفقكم الله ورعاكم وجعل ما تقومون به خالصاً لوجهة الكريم .

عفواً

أقصد هنا بإغلاق الصفحة إنهاء البرنامج كاملاً .

تحياتي .

تحية طيبة لجميع الإخوة الأعضاء

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

الشرح بالملف المرفق .

__________________.rar