مطلوب كود يجعل ملف ينتهي بعد تاريخ ويمكن فتحه برقم

[ابرار و ابراهيم]

السلام عليكم

ارجاء من الاخوه الخبراء في اكسل المساعده في كود يعمل على قفل ملف اكسل بعد فتره معينه ولا يتم فتحه بعد انتهاء التاريخ الا برقم معين من المستخدم حيث انني وجدت من الاخوه الخبراء ملفات مشابهه ولكن بعد التاريخ المحدد لا يستطيع اي شخص فتحها ولكن المطلوب هنا ان يقوم مستخدم الملف بفتحها فقط ولكم كل الشكر والتقدير

[nokia_c65]

اخي العزيز

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

Private Sub Workbook_Open()

If Date > DateValue("1/1/2010") Then

If InputBox("رجاءً قم بادخال كلمة السر ") <> "منتدى اوفيسنا" Then

MsgBox "الكلمة غير صحيحة"

ThisWorkbook.Close

Else

MsgBox "كلمة مرور صحيحة اهلا وسهلا بك"

End If

End If

End Sub

وان شاء الله تسير معك الامور تمام

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

[عصام2008]

اخي العزيز

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

Private Sub Workbook_Open()

If Date > DateValue("1/1/2010") Then

If InputBox("رجاءً قم بادخال كلمة السر ") <> "منتدى اوفيسنا" Then

MsgBox "الكلمة غير صحيحة"

ThisWorkbook.Close

Else

MsgBox "كلمة مرور صحيحة اهلا وسهلا بك"

End If

End If

End Sub

وان شاء الله تسير معك الامور تمام

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

أخى الفاضل nokia_c65

ارجو ان يكون نقل المعلومة كاملة وهذا لضرورة الأمانة العلمية وعدم اهدار حقوق الغير لأن هذه المشاركة أي الحل الذي تفضلت به مأخوذ نصياً وحرفيا من هذا الموقع http://excel4us.com/vb/showthread.php?t=50

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

تم تعديل مارس 18, 2010 بواسطه esam2008

[amir501]

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

[عصام2008]

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

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

تم تعديل مارس 20, 2010 بواسطه esam2008

[يحيى حسين]

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

إخواني في الله

لم أرد التدخل في الموضوع خوفاً من أن يكون لدي أي إنحياز لموقعي

و لكني أود أن أشكر الجميع

الأخ عصام أشكرك على التوضيح

و الأخ عامر أشكرك على الرد

و لكن لي ملاحظة بسيطة

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

و الأجدر به أن يذكر المصدر الذي نسخ منه معلومته

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

هذا الكود ليس بالكود النادر او الكود الخارق الذي يتكون من مئات الأسطر و لصاحبه الحق في الإحتفاظ به

بل هو كود بسيط و فكرته عادية و ليست بالشي المميز

و لو نقله او غير عليه اي شخص فله الحق بذلك

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

و لو ان الاخ الناقل للموضوع لم يذكر عبارته الاخيرة بتصرف من شخص لا اذكر اسمه لمى كتب الاخ عصام رده

==================

أتمنى أن لا نفتح باب للشيطان للدخول بيننا بنقاشات تضيع وقتنا و اهداف منتدياتنا

==================

و أود أن أذكر نقطه مهمه

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

فكثير ما اشاهد معادلاتي في منتديات او في موقع و لم يتم الإشارة الي اسمي فيها

و أخونا الحبيب خبور

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

==================

العلم حق لكل إنسان

و من تعلم شي و ابدع فيه و طوره و نشره فسيبارك له الله فيه

==================

و نسأل الله أن يجمعنا في ظل عرشه يوم لا ظل إلا ظله و نحن متحابون في الله

و دمتم في حفظ الله

[amir501]

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

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

تقبل شكري واعتذاري

[يحيى حسين]

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

جزاك الله خير أخي عامر على هذا الخلق النبيل

تقبل مودتي و إحترامي لك أخي

[عصام2008]

[b]السلام عليكم أخوتي في الله

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

[nokia_c65]

استاذي العزيز يحيى حسين

اخي amir501

صديقي وحبيبي esam2008

اولا : اود شكركم جميعالانكم اسهبتم بالموضوع وجزاكم الله كل خير ان شاء الله

ثانيا : ان اعتذر بشدة لعدم تمكني من الرد سابقا لظروف لم اتمكن من الدخول لمنتدانا العزيز على قلبي اوفيسنا

ثالثا : اخي esam2008 اقسم لك اني لم اتذكر اسم صاحب الموضوع ولم اتمكن من حفظ مكان الصفحة التي نشر عليها الكود حيث اني انسخ الكود فقط في حاسبتي الشخصية لكي استعمله مستقبلا

رابعا : عزيزي esam2008 انا ذكرت تصرف واقصد تصرف في كلمة السر وبعض الكلمات العربية حيث او تقرأ الكود الاصلي لصاحب الموضوع السيد Excel لوجدت خطأ املائي عربي وهو جزاه الله خيرا لم ينتبه وهذا عادي يحدث للجميع (المتكلم مرات عديدة وقع فيها) وايضا تصرفت بتأريخ الدخول حيث المشاركة الاصلية لو تقرأها للنهاية لوجدت ان بعض الاخوة قام بالرد لتوضيح كلمة المرور

خامساً : انا اعتذر منك ومن صاحب الموضوع ومن الاستاذ يحيى والاستاذ amir501 ومن منتدانا العزيز لعدم ذكري اسم صاحب الكود او الصفحة التي نشر فيها الكود والله وحده يعرف ماهو قصدي حيث كان المساعدة فقط لا غيرها

والله من وراء القصد

اخوكم المهندس العراقي

ملاحظة: الكود الاصلي هو للسيد Excel وهي موجود في الصفحة http://excel4us.com/vb/showthread.php?t=50

[يحيى حسين]

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

أخي المهندس العراقي

اهلا بك و بكل اهل العراق الكرام

اخي الموضوع انتهى و لا داعي للإعتذار

تقبل تحياتي

و دمت في حفظ الله

[خالد القدس]

السلام عليكم

كود جميل ورائع

سلمت أياديكم جميعا