اذهب الي المحتوي
أوفيسنا

تريد ان تعرف ... من يتطفل عليك و يفتح ملفاتك في غيابك


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

اي حركة تقوم بها تسجل في ملف مفكرة log في المسار c:\MyLogFiles ... لودخل احد الى جهازك و اطلع على معلوماتك المهمة فانك تستطيع الاطلاع على التقرير المفصل لاي حركة حدثت في الملف

Logger.zip

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

اخي العزيز يحياوي بالفعل ما اجمل ابداعاتك

خواتم مباركة وكل سنة وانت طيب

ابواحمد

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

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

اخي العزيز يحياوي

السلام عليكم

اتحفتنا فاذهلتنا فبهرتنا

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

اخي العزيز "جمال الفار" بارك الله فيك و تقبل الله منا ومنك صالح الاعمال

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

السلام عليكم

اخي وحبيبي يحياوي

تحف فنية تضاف الى رصيدك الذهبي

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

الاخ العزيز

موضوع ممتاز الف شكر عليه

عندما حاولت نقل الموضوع الي شيت عندي لا يعمل

انا نقلت الكود من الشيت الي الشيت الذي اعمل عليه ولكنه لا يسجل

ما هو التعديل لو سمحت الذي اضيفه لاجعله يعمل عندي

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

الاستاذ العزيز محمد يحيــــــــاوي

تسلم ايدك ... جزاك الله كل الخير ( رائع ككل اعمالك )

وفقك الله

ابو الحارث

الاخ الحبيب "ابو الحارث" جزاك الله خيرا وفقك الله

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

الاخ العزيز

موضوع ممتاز الف شكر عليه

عندما حاولت نقل الموضوع الي شيت عندي لا يعمل

انا نقلت الكود من الشيت الي الشيت الذي اعمل عليه ولكنه لا يسجل

ما هو التعديل لو سمحت الذي اضيفه لاجعله يعمل عندي

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

اخي الكريم انسخ هذا الكود في thisworkbook

Option Explicit


Private Sub Workbook_Open()

      LogInformation "Opened by " & Application.UserName & _

                     " " & Format(Now, "dd mmm yyyy hh:mm:ss")

End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

      LogInformation ActiveSheet.Name & Selection.Address & " Changed: " & _

                     " " & Format(Now, "dd mmm yyyy hh:mm:ss")

End Sub


Private Sub Workbook_BeforePrint(Cancel As Boolean)

      LogInformation ActiveSheet.Name & "Printed: " & _

                     " " & Format(Now, "dd mmm yyyy hh:mm:ss")

End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

      LogInformation "Saved by " & Application.UserName & _

                     " " & Format(Now, "dd mmm yyyy hh:mm:ss")

End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)

      LogInformation "Closed by " & Application.UserName & _

                     " " & Format(Now, "dd mmm yyyy hh:mm:ss")

End Sub



وانسخ هذا الكود في module
Option Explicit


Public Function LogInformation(LogMessage$)

      On Error GoTo MakeFolder

Entry:

      Open "c:\MyLogFiles\" & Left(ThisWorkbook.Name, _

                                   Len(ThisWorkbook.Name) - 4) & _

           " Log.Log" For Append As #1

      Print #1, LogMessage

      Close #1

      Exit Function

MakeFolder:

      MkDir "c:\MyLogFiles"

      Resume Entry

End Function



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

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

الاخ العزيز الاستاذ / يحيى

كل عام و حضرتك بخير .

بسم الله ما شاء الله عمل رائع .. سلمت يداك

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

و الله الموفق و المستعان

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

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

الاخ الحبيب "احمد فضيلة" بارك الله فيك و وفقك الى الخير

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

أخي الحبيب الاستاذ العبقري الاستاذ / يحيى :fff::fff::fff::fff::fff:

صاحب الاعمال المفيدة جداً

بارك الله في حضرتك

و وفقنا جميعاً للخير

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

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

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

أخي الحبيب الاستاذ العبقري الاستاذ / يحيى :fff::fff::fff::fff::fff:

صاحب الاعمال المفيدة جداً

بارك الله في حضرتك

و وفقنا جميعاً للخير

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

الاخ الحبيب "احمد فضيلة" تحية تقدير و اعزاز على الذوق الجميل و شكرا على الورود الجميلة

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

السلام عليكم

الاستاذ القدير يحياوي سلمت الانامل

على هذا الكم الكبير من الدرر

وفقك الله خواتم مباركه

تقبل مروري

والسلام عليكم

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

السلام عليكم

الاستاذ القدير يحياوي سلمت الانامل

على هذا الكم الكبير من الدرر

وفقك الله خواتم مباركه

تقبل مروري

والسلام عليكم

الاخ الحبيب "ابو نصار" اسعدني كثيرا مرورك

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information