اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم

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

رابط هذا التعليق
شارك

اخي العزيز

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

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

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

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

رابط هذا التعليق
شارك

اخي العزيز

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

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

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

تم تعديل بواسطه esam2008
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه esam2008
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

  • 1 month later...

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

اخي amir501

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

تقبل تحياتي

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information