محمد يحياوي قام بنشر أغسطس 20, 2011 قام بنشر أغسطس 20, 2011 اي حركة تقوم بها تسجل في ملف مفكرة log في المسار c:\MyLogFiles ... لودخل احد الى جهازك و اطلع على معلوماتك المهمة فانك تستطيع الاطلاع على التقرير المفصل لاي حركة حدثت في الملف Logger.zip
محمود علاء قام بنشر أغسطس 20, 2011 قام بنشر أغسطس 20, 2011 الاخ الفاضل/ يحياوى ما اجمل ابداعاتك واكوادك بارك الله فيك
محمد يحياوي قام بنشر أغسطس 20, 2011 الكاتب قام بنشر أغسطس 20, 2011 الاخ الفاضل "محمود علاء" شكرا جزيلا وفقك الله
عبدالله المجرب قام بنشر أغسطس 20, 2011 قام بنشر أغسطس 20, 2011 اخي العزيز يحياوي بالفعل ما اجمل ابداعاتك خواتم مباركة وكل سنة وانت طيب ابواحمد
جمال الفار قام بنشر أغسطس 20, 2011 قام بنشر أغسطس 20, 2011 اخي العزيز يحياوي السلام عليكم اتحفتنا فاذهلتنا فبهرتنا جزاك الله خير على هذا العمل الرائع
محمد يحياوي قام بنشر أغسطس 20, 2011 الكاتب قام بنشر أغسطس 20, 2011 اخي العزيز يحياوي بالفعل ما اجمل ابداعاتك خواتم مباركة وكل سنة وانت طيب ابواحمد الاخ الحبيب "ابو احمد" ما اجمل كلماتك و اروع خلقك بارك الله فيك
محمد يحياوي قام بنشر أغسطس 20, 2011 الكاتب قام بنشر أغسطس 20, 2011 اخي العزيز يحياوي السلام عليكم اتحفتنا فاذهلتنا فبهرتنا جزاك الله خير على هذا العمل الرائع اخي العزيز "جمال الفار" بارك الله فيك و تقبل الله منا ومنك صالح الاعمال
الحسامي قام بنشر أغسطس 21, 2011 قام بنشر أغسطس 21, 2011 السلام عليكم اخي وحبيبي يحياوي تحف فنية تضاف الى رصيدك الذهبي
ياسر الحافظ قام بنشر أغسطس 21, 2011 قام بنشر أغسطس 21, 2011 الاستاذ العزيز محمد يحيــــــــاوي تسلم ايدك ... جزاك الله كل الخير ( رائع ككل اعمالك ) وفقك الله ابو الحارث
منير لبيب قام بنشر أغسطس 21, 2011 قام بنشر أغسطس 21, 2011 (معدل) الاخ العزيز موضوع ممتاز الف شكر عليه عندما حاولت نقل الموضوع الي شيت عندي لا يعمل انا نقلت الكود من الشيت الي الشيت الذي اعمل عليه ولكنه لا يسجل ما هو التعديل لو سمحت الذي اضيفه لاجعله يعمل عندي تم تعديل أغسطس 21, 2011 بواسطه MONEER111
محمد يحياوي قام بنشر أغسطس 21, 2011 الكاتب قام بنشر أغسطس 21, 2011 السلام عليكم اخي وحبيبي يحياوي تحف فنية تضاف الى رصيدك الذهبي الاخ الحبيب "الحسامي" شكرا على كلماتك الجميلة و بارك الله فيك
محمد يحياوي قام بنشر أغسطس 21, 2011 الكاتب قام بنشر أغسطس 21, 2011 الاستاذ العزيز محمد يحيــــــــاوي تسلم ايدك ... جزاك الله كل الخير ( رائع ككل اعمالك ) وفقك الله ابو الحارث الاخ الحبيب "ابو الحارث" جزاك الله خيرا وفقك الله
محمد يحياوي قام بنشر أغسطس 21, 2011 الكاتب قام بنشر أغسطس 21, 2011 الاخ العزيز موضوع ممتاز الف شكر عليه عندما حاولت نقل الموضوع الي شيت عندي لا يعمل انا نقلت الكود من الشيت الي الشيت الذي اعمل عليه ولكنه لا يسجل ما هو التعديل لو سمحت الذي اضيفه لاجعله يعمل عندي الاخ الكريم "منير" جزاك الله خيرا وفقك الله اخي الكريم انسخ هذا الكود في 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
احمد فضيله قام بنشر أغسطس 21, 2011 قام بنشر أغسطس 21, 2011 السلام عليكم ورحمة الله و بركاته الاخ العزيز الاستاذ / يحيى كل عام و حضرتك بخير . بسم الله ما شاء الله عمل رائع .. سلمت يداك جزاك الله كل خير و نفع الله بك كافة المسلمين و الله الموفق و المستعان و السلام عليكم و رحمة الله و بركاته
محمد يحياوي قام بنشر أغسطس 21, 2011 الكاتب قام بنشر أغسطس 21, 2011 الاخ الحبيب "احمد فضيلة" بارك الله فيك و وفقك الى الخير
احمد فضيله قام بنشر أغسطس 21, 2011 قام بنشر أغسطس 21, 2011 الاخ الحبيب "احمد فضيلة" بارك الله فيك و وفقك الى الخير السلام عليكم ورحمة الله و بركاته أخي الحبيب الاستاذ العبقري الاستاذ / يحيى صاحب الاعمال المفيدة جداً بارك الله في حضرتك و وفقنا جميعاً للخير و السلام عليكم ورحمة الله و بركاته
محمد يحياوي قام بنشر أغسطس 21, 2011 الكاتب قام بنشر أغسطس 21, 2011 ملف روعة تسلم إيدك أخي يحياوي الاخ الحبيب "نادر" شكرا جزيلا بارك الله فيك
محمد يحياوي قام بنشر أغسطس 21, 2011 الكاتب قام بنشر أغسطس 21, 2011 السلام عليكم ورحمة الله و بركاته أخي الحبيب الاستاذ العبقري الاستاذ / يحيى صاحب الاعمال المفيدة جداً بارك الله في حضرتك و وفقنا جميعاً للخير و السلام عليكم ورحمة الله و بركاته الاخ الحبيب "احمد فضيلة" تحية تقدير و اعزاز على الذوق الجميل و شكرا على الورود الجميلة
saad abed قام بنشر أغسطس 21, 2011 قام بنشر أغسطس 21, 2011 السلام عليكم اخي وحبيبي يحياوي تحف فنية تضاف الى رصيدك الذهبي اخى يحياوى بارك الله فيك وجزاك الله خيرا سعد عابد
الـعيدروس قام بنشر أغسطس 21, 2011 قام بنشر أغسطس 21, 2011 السلام عليكم الاستاذ القدير يحياوي سلمت الانامل على هذا الكم الكبير من الدرر وفقك الله خواتم مباركه تقبل مروري والسلام عليكم
محمد يحياوي قام بنشر أغسطس 21, 2011 الكاتب قام بنشر أغسطس 21, 2011 السلام عليكم الاستاذ القدير يحياوي سلمت الانامل على هذا الكم الكبير من الدرر وفقك الله خواتم مباركه تقبل مروري والسلام عليكم الاخ الحبيب "ابو نصار" اسعدني كثيرا مرورك
منير لبيب قام بنشر أغسطس 21, 2011 قام بنشر أغسطس 21, 2011 (معدل) الاخ الفاضل شكرا علي الاهتمام بالرد ونفذت ما كتبته ولكن ايضا لم ينفذ الامر مرسل الملف لعل يظهر الخطأ Book1.rar تم تعديل أغسطس 21, 2011 بواسطه MONEER111
محمد يحياوي قام بنشر أغسطس 21, 2011 الكاتب قام بنشر أغسطس 21, 2011 الاخ الكريم تم التعديل لاحظ المرفق Book1.rar
ابو القبطان قام بنشر أغسطس 22, 2011 قام بنشر أغسطس 22, 2011 اخي يحياوي ما شاء الله عليك ، عمل ممتاز من استاذ فينك من زمان تقبل تحياتي وكل عام وانت بالف خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.