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

عدد مرات فتح الملف


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

الأخوة الأفاضل

سلام الله عليكم

وجدت هذا الكود الجميل لعدد مرات فتح الملف

برجاء تغيير تاريخ آخر مرة ليصيح التاريخ السابق للفتح الحالى .

تحياتى

** دغيدى

عدد مرات فتح الملف.rar

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

أخى الفاضل أبوعمر

شكرا كل الشكر

عند طرح واحد( 1 ) من سطر الكود يعطى تاريخ الأمس وليس اخر مرة

زمن الفتح هو زمن فتح المرة الحالية ولكنى ارغب فى زمن المرة السابقة مباشرة

تحياتى

** دغيدى **

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

مشاركة متواضعة اذا تم السماح لي ومن ما تعلمته من هذا المنتدى العظيم

يمكنك تعديل الكود الى ( مع استخدام الخلية A1)

  Dim Counter As Long, LastOpen As String, Msg As String

Sheets("Sheet1").Activate

Application.GoTo [A6]

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

    Msg = "لقد فتح هذا الملف  " & Counter & " مره."

    Msg = Msg & vbCrLf & "اخر تاريخ تم فتحه فيه هو: " & [a1]

    Msg = Msg & vbCrLf & "مع تحيات أوفيسنا "

    MsgBox Msg, vbInformation, ThisWorkbook.Name

    Counter = Counter + 1

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

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

    [a1] = Date

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

الفاضل / خبور

سلام الله عليكم

الغرض من الموضوع معرفة تاريخ وتوقيت آخر فتح للملف كنوع من المراقبة لبعض الملفات

دمت لنا

تحياتى

** دغيدى *

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

السلام عليكم

اخي دغيدي

لقد اظهرت التواريخ وعدد مرات الفتح

في العمودين الاول والثاني

في هذا المرفق

بشكل متتالي:

لترى بنفسك آلية عمل الكود السابق

واضقت زرا ليعمل لترى النتائج بطريقة سريعة

بدلا من الفتح والاغلاق

وايضا يعمل اثناء الفتح

الان اريد اعرف اي تاريخ من هذه التواريخ الظاهرة

التي تريده

حتى اعرف قصدك من الطلب

ثم سانفذ في الكود السابق

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

أخى الفاضل / qhq

مثل ما اخبرك الاخ دغيدي

لك حرية المشاركة

حتى ارفقت حلا ولو يكن المطلوب

ما عليك باس

مادامت النية مساعدة الاخرين

وخذ هذا مني كلما اعطيت

ستزداد علما ومعرفة

المرفق اكسل 2003

عدد مرات فتح الملف1.rar

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

الفاضل أصلا .. الكريم دوما.. العلامة .. خبور

ضريبة العلم لا تعفيك .. فالشكر لا يكفيك .. فالكرم أصيل فيك

حفظ الله بلادنا العربية من الغمة التى تجتاحها

العمل فاق المطلوب

تحيات مصر الكنانة لليمن السعيد دوما

تحياتى

** جمال دغيدى **

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

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