مساعدة بهذا الكود

[amir501]

اخواني جزاكم اله كل ةخير هذا الكود هو لاخونا ولد طيبة

Sub auto_open()

Dim Expiry As Date

       Expiry = DateValue("28/07/2010")

    If Date > Expiry Then

Dim CEL As Range

Application.ScreenUpdating = False

Application.Calculation = xlManual

For S = 1 To ActiveWorkbook.Sheets.Count

Sheets(S).Activate

For Each CEL In ActiveSheet.UsedRange

If CEL.HasFormula = True Then CEL = CEL.Value

Next CEL

Next S

Application.Calculation = xlAutomatic

End If

End Sub

كيف يمكنني ان اجعل هذا الكود بعد ان يقوم بعمله وهو حذف جميع الدالات بتاريخ محدد كما هو موضح ان يقوم بعملية الحفظ التلقائي ..وابطال عمل زر الاغىلاق (اشارة X) حتى ينتهى الكود من عمله واغلاق الملف تلقائيا

[هشام شلبى]

السلام عليكم

===========

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

[هشام شلبى]

السلام عليكم

===========

الاخamir501

اكاد اكون فاهم طلبك

ان يقوم بعملية الحفظ التلقائي ..وابطال عمل زر الاغىلاق (اشارة X) حتى ينتهى الكود من عمله واغلاق الملف تلقائيا

ممكن عمل الطلبين معا وهذا الارجح وهو0000

عند وصول التاريخ الى التاريخ المحدد فى الكود سيقوم الكود بمسح الدوال والحفظ اتوماتيكيا

وقتها لا يهم موضوع قفل الملف لان الكود سيقوم بحفظ الشطل النهائى للملف وهو الحفظ بعج مسح الدوال

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

ActiveWorkbook.Save

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

ActiveWorkbook.CLOSE

عموما افتح الملفين وشاهدهم جيدا

ثم غير تاريخ جهازك الى التاريخ المحدد بالكود وافتح مرة اخرى وراقب ما يحد فى الملفين

HH1.rar

HH2.rar

[amir501]

استاذي هشام كم يسعدني مرورك العطر واهتمامك... لكن هناك مشكلة صغيرة وهي ...ان الكود لا يعمل في حال كانت الصفحات محمية كيف يمكن ان نجعل الكود يعمل والصفحات محمية..اشكرك كل الشكر

[هشام شلبى]

السلام عليكم

===========

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

شاهد المرفق

الملف المرفق محمى

شااهد ثم اغلق ثم غير تاريخ الجهاز وافتح مرة اخرى وراقب ما يحدث

HH2.rar

[amir501]

السلام عليكم

===========

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

شاهد المرفق

الملف المرفق محمى

شااهد ثم اغلق ثم غير تاريخ الجهاز وافتح مرة اخرى وراقب ما يحدث

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

تقبل تحياتي واحترامي وشكري...

[هشام شلبى]

السلام عليكم

==========

انا اساسا لم اضع كلمة مرور

من فضلك اخى amir501

جرب مرة تانى واعلمنى بالنتيجة

انا جربت اكتر من 10 مرات قبل الارفاق والان وكله تمام

[amir501]

السلام عليكم

==========

انا اساسا لم اضع كلمة مرور

من فضلك اخى amir501

جرب مرة تانى واعلمنى بالنتيجة

انا جربت اكتر من 10 مرات قبل الارفاق والان وكله تمام

اخي هشام انا اقصد عند وجود كلمة مرور الكود لا يعمل حتى تدخل كلمة والمرور والمطلوب من الكود العمل متجاوزا كلمة المرور شاهد المرفق لوسمحت كلمة المرور هي (000)

HH2.rar

[amir501]

للرفع ياخوان جزاكم الله كل خير

[amir501]

للرفع ياخوان جزاكم الله كل خير

للرفع ياخوان جزاكم الله كل خير

للرفع ياخوان جزاكم الله كل خير

[amir501]

للرفع ياخواااااااان