عادل جلال قام بنشر يناير 20, 2007 قام بنشر يناير 20, 2007 الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته هل من كود لحفظ نسخة احتياطيه تلقائيا في الاكسل دوماَ بمعنى: اريد ان يقوم الاكسل بحفظ نسخة من الملف تلقائي كلما تم التغير في الملف الاصلي يتم تحديث النسخة تلقائيا تحياتى
ابو اسامة العينبوسي قام بنشر يناير 20, 2007 قام بنشر يناير 20, 2007 نعم ممكن ارفق ملف و حدد ماكن النسخه التي تريد ان تضعها على اي قرص و باي اسم تريدها ايضا و انا اتولى الباقي
الدكتور خضر الرجبي قام بنشر يناير 20, 2007 قام بنشر يناير 20, 2007 السلام عليكم أخي عادل جلال ، الأدة المرفقة (Addin) هي اضافة للإكسيل تضيف نفسها بمجرد تشغيلها إلى الإكسل وتتولى عملية النسخ التلقائية الموقوتة وفيما يأتي رسم لها : وهذه هي الأدة : setup.rar وهذا هو مصدر هذه الأدة وبه أدوات أخرى مثيرة ومفيدة : مع الاحترام والتقدير
عادل جلال قام بنشر يناير 20, 2007 الكاتب قام بنشر يناير 20, 2007 الأخ/أبو أسامة السلام عليكم ورحمة الله وبركاته أشكرك على سرعة تعاونك بالنسبة للقرص هو E وأسم الملف هو Adel بارك الله فيك تحياتى
الدكتور خضر الرجبي قام بنشر يناير 20, 2007 قام بنشر يناير 20, 2007 السلام عليكم أخي عادل جلال ، أيضا ، إليك الفكرة التالية عن طريق الكود للقيام بعمل تخزين تلقائي نضع الكود الآتي في ThisWorkbook ويفترض وجود دليل للتخزين وهو (c:\backups) Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Application.DisplayAlerts = False 'based on Harald Staff 2002-03-07 Dim Fname as string Fname = ActiveWorkbook.Name If UCASE(ThisWorkbook.FullName) <> UCASE("c:\backups\" & Fname) Then _ ThisWorkbook.SaveCopyAs "c:\backups\" & Fname Application.DisplayAlerts = True End Sub ومصدر هذه الفكرة إن احببت التوسع في الموضوع هو : موقع أجنبي مع الاحترام والتقدير
lord قام بنشر يناير 20, 2007 قام بنشر يناير 20, 2007 السلام عليكم ورحمة الله وبركاته الاستاذ / خضر الرجبى تحياتى لاهل فلسطين الحبيبة بالنسبة الأدة المرفقة (Addin) يوجد بها استخدامات عديدة هل يمكن شرحها وشرح قوائمها لاننى استخدمت بعضها فهل من تعريب للمصطلحات الموجودة بها او تعريفها علما بان لكل مصطلح وظيفة ولها قائمة تفيد فى استخدامها والعرض منه اشكرك على تواجدك الدائم
عادل جلال قام بنشر يناير 20, 2007 الكاتب قام بنشر يناير 20, 2007 الأخ/أبو أسامة السلام عليكم ورحمة الله وبركاته أشكرك على سرعة ردك بارك الله فيك تحياتى
ابو اسامة العينبوسي قام بنشر يناير 21, 2007 قام بنشر يناير 21, 2007 (معدل) السلام عليكم اذا كان رد الاخ العزيز خضر كافيا و اظنه كذلك فالموضوع تم حله و الا فانا اقول كاتالي : Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "E:\adel\adel.XLS" End Sub انشئ مجلد على القرص e باسم adel هذا الحدث يتم اي النسخ قبل الاغلاق (اغلاق الملف ) تم تعديل يناير 21, 2007 بواسطه ابو اسامة العينبوسي
ابوزينب قام بنشر يناير 21, 2007 قام بنشر يناير 21, 2007 اذا كان رد الاخ العزيز خضر كافيا و اظنه كذلك فالموضوع تم حله و الا فانا اقول كاتالي : Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "E:\adel\adel.XLS" End Sub انشئ مجلد على القرص e باسم adel هذا الحدث يتم اي النسخ قبل الاغلاق (اغلاق الملف ) كلما جربت فى قاعدة بيانات خاصة لا يعمل لا ادرى لماذا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.