سؤال ((الاحتفاظ بآخر تاريخ تم فتح الاكسيل به))

[نور الرحمة]

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

لو سمحتوا كنت عايزة اول ما افتح صفحة الاكسيل

يعطينى رسالة فيها تاريخ و مدة اخر مرة تم فتح الاكسيل

msgbox

[DBA.Oracle]

الملف المرفق يحتفظ بآخر تاريخ تم فتح الملف فيه ويظهره فى رسالة عند فتح الملف المرة الثانية

اتمني ان يكون هذا هو المطلوب اما بالنسبة لمدة الفتح

فى انتظار احد الاخوة فى اكمال المطلوب للافادة العامة

Book5.rar

تم تعديل أبريل 14, 2010 بواسطه DBA.Oracle

[نور الرحمة]

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

استاذ DBA.Oracle

بس ممكن حضرتك ترفع لى الملف تانى

او تكتب لى الكود اصل طلع فيه خطأ

لما ضغطت نعم ظهرت لى الرسالة التالية

تم تعديل أبريل 14, 2010 بواسطه نور الرحمة

[DBA.Oracle]

تم اضافة ساعة الفتح والاغلاق

اتمني ان تكون الطريقة صحيحة برجاء تجربة المرفق والرد بالنتيجة

Book5.rar

تم تعديل أبريل 14, 2010 بواسطه DBA.Oracle

[DBA.Oracle]

بصراحة لا اعلم المشكلة من اين لكن هذه صورة للملف من جهازي يعمل والماكرو يخبرنا بالوقت كما هو مطلوب

[DBA.Oracle]

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

فى انتظار الرد من احد الاخوة

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

[نور الرحمة]

ظهرت لى نفس المشكلة

ممكن حضرتك تكتب لى الكود

وانا اطبقه

[DBA.Oracle]

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Range("Now").Copy

Range("Now_2").PasteSpecial xlPasteValues

Range("close").Value = Time

Range("open").Copy

Range("between").PasteSpecial xlPasteValues


End Sub


Private Sub Workbook_Open()

Sheets("sheet1").Range("a1").Select

MsgBox "The File Was Open Last Time In This Date " & Range("Now_2") & vbNewLine & "Open Time :" & Range("between") & vbNewLine & "Close Time : " & Range("close")

Range("open").Value = Time


End Sub

يجب تسمية خلايا بالاسماء التالية

خلية يكون اسمها = open

خلية يكون اسمها = close

خليه اسمها = between

وخليه اخري اسمها = now

وخلية اخري باسم = now_2

وبالنسبة للخلية now >>> اكتبي فيها المعادلة

=now()

واعادة عمل فورمات للخلايا السابقة بالفورمات التالي

dd/mm/yyyy hh:mm

عن طريق Format cells

تم تعديل أبريل 14, 2010 بواسطه DBA.Oracle

[DBA.Oracle]

هو الطريقة طويلة اكيد فى طريق اسهل لكن هو دا اللى قدرت اوصله حتي الان

[نور الرحمة]

شكرا جزيلا

استاذ DBA.Oracle

[DBA.Oracle]

عفوا وفى انتظار احد اخوتنا الافاضل باستكمال المطلوب والتعديل علي المرفقات اذا لزم الامر

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

واذا حولته عربي اثناء تنزيل الويندوز فيعمل البروجكت الخاص بي

برجاء من احد الاخوة ايضا توضيح المشكلة وحلها ان وجد

ولكم جزيل الشكر

[DBA.Oracle]

فى مشكلة فى الكود ظهرت الآن

دلوقتى الكود بيتم عن طريق ان الخلايا المذكورة بالاعلي بتحتفظ بالتوقيتات بمجرد الفتح والاغلاق وتخبرنا بيها فى المرة القادمة عند الفتح

لو تم فتح الملف عند الاغلاق سيسأل هل تود الحفظ اذا ضغط المستخدم "لا" فلن يحفظ التغييرات التي تمت فبالتالي لن يحفظ التوقيت الذي تم فتح الملف فيه

اذا فالفكرة غير مجدية للاسف

فى انتظار طريقة اخري

[هشام شلبى]

السلام عليكم

==========

شاهد المرفق

مرات فتح.rar

[نور الرحمة]

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

استاذ هشام شلبى

بس فيه حاجات مش فاهماها

بس ممكن حضرتك تقولى معنى

    Counter = GetSetting("XYZ Corp", "Budget", "Count", 0)

    LastOpen = GetSetting("XYZ Corp", "Budget", "Opened", "")

    SaveSetting "XYZ Corp", "Budget", "Count", Counter

    SaveSetting "XYZ Corp", "Budget", "Opened", LastOpen

تم تعديل أبريل 14, 2010 بواسطه نور الرحمة

[نور الرحمة]

فى مشكلة فى الكود ظهرت الآن

دلوقتى الكود بيتم عن طريق ان الخلايا المذكورة بالاعلي بتحتفظ بالتوقيتات بمجرد الفتح والاغلاق وتخبرنا بيها فى المرة القادمة عند الفتح

لو تم فتح الملف عند الاغلاق سيسأل هل تود الحفظ اذا ضغط المستخدم "لا" فلن يحفظ التغييرات التي تمت فبالتالي لن يحفظ التوقيت الذي تم فتح الملف فيه

اذا فالفكرة غير مجدية للاسف

فى انتظار طريقة اخري

بس الفكرة جميلة وسهلة

وجزاك الله كل خير على مجهودك الرائع

[DBA.Oracle]

جزانا واياكم

[نور الرحمة]

سؤال تانى لو سمحتوا

طيب لو عايزة احسب الفرق بين

الوقت و التاريخ الحالى وتاريخ اخر مرة فتحت فيها الاكسيل

يعنى اول ما افتح الاكسيل تظهر لى رساله

ولتكن لم يتم فتح الاكسيل منذ 5 ايام

[احمد فضيله]

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

بعد اذن اخواني الاستاذ/ هشام شلبى و الاستاذ/ DBA.Oracle

برجاء الاطلاع على المرفق

Date & Time.rar

[abo mohamad]

السلام عليكم

==========

شاهد المرفق

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

بارك الله فيك استاذ / هشام

دا شغل عباقره وعمل رائع لكن بالله عليك تعرفنا اذاى نطبقها عندنا على الملفات وكذلك طريقه عملها؟؟؟؟؟؟؟

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