أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

Preview




استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية

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



25-08-2017 12:07 مساء
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 503
الاعجاب : 0
 offline 
السلام على جميع الاخوة الافاضل اما بعد:
هناك بعض الاخوة من يفكر في حفظ نسخة احتياطية لملفه خوفا من تلف النسخة الاصلية و لكن عمليا قد حدث لي مشكل مع النسخة الاصلية لكن لما ذهبت للنسخة الاحتياطية و جدت ان التلف قد اصاب النسختين معا لانهما مرتبطتين معا لذلك بحثت عن حل اخر و هو عمل save Ase للملف و كانت النتائج جد ايجابة و مرضية حتى ان الكود صغير و فعال اليكم الان شرح الكود:
Private Sub CommandButton1_Click()
With ActiveWorkbook
Application.DisplayAlerts = False
هذا لتعطيل علبة الحوار عند التخزين : (هذا الملف موجود هل تريد استبداله) لان كل مرة يتم استبدال الملف القديم بالجديد
.SaveAs Filename:="D:\الصقر\الصقر.2018.xls"
هنا البارتيشن الذي تريد التخزين به اذا اردت استبدال البارتيشن قم بتسمية البارتيشن فقط
ثم /الصقر..هذا اسم المجلد/الصقر .2018..هذا اسم الملف قم بكتابته هنا ولا يهم ان قمت بتغيير الاسم
MsgBox "تم تخزين النسخة بنجاح"
End With
End Sub

وشكرا و جمعة مباركة للجميع
اليكم الملف بالكود
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  save Ase.rar   تحميل rar مرات التحميل :(10)
الحجم :(15.764) KB





25-08-2017 01:57 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
بارك الله فيك أخي العزيز زياد ومشكور على المجهود المبذول

احذر نقطة هامة وهي أنه عند أخذ نسخة احتياطية بهذه الطريقة فإن الملف الجديد هو الذي يفتح والملف الأصلي يغلق ...

تقبل وافر تقديري واحترامي




25-08-2017 03:39 مساء
مشاهدة مشاركة منفردة [2]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 503
الاعجاب : 0
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
نعم بالفعل استاذ ياسر لم انتبه الى هذه النقطة اذا يبقى السبيل الوحيد هو عن طريق اكواد حفظ نسخة احتياطية ولو انها طريقة ليست فعالة جدا لكون الملفين مرتبطين و تلف احدهما سيؤدي لا محالة الى تلف الاخر




25-08-2017 03:48 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
أخي العزيز زياد
لو أمكن قم بطرح موضوع جديد وارفق ملفين كنموذج وحدد المشكلة بالضبط حيث أنه لم يصادفني مشكلة الربط هذه من قبل .. بالتأكيد سيوجد طريقة لكسر هذا الربط 
تقبل تحياتي




25-08-2017 08:00 مساء
مشاهدة مشاركة منفردة [4]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 503
الاعجاب : 0
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
استاذ ياسر اليك كود لعمل نسخة احتياطية في بارتيشن d لكنه ليس فعال لانني اريده كلما اضغط على الزر يقوم اليا باستخلاف الملف السابق لكن في هذا الكود في المرة الاولى يعمل بشكل جيد و لكن اذا ضغطت على الزر في المرة الثانية يتوقف الملف عن العمل و تظهر رسالة خطأ .لان الملف اصلا موجود ولكن اريد ان يقوم باستخلاف الملف الموجود و حفظ النسخة الجديدة .
لماذا هذا الطلب ؟ لانه يمكن تقديم الملف لاي شخص للعمل عليه  و  ليس له دراية جيدة بالاكواد مثلي طبعا  يمكن ان يقوم بالضغط المتكرر على الزر و لا اريد ان تظهر هذه المشاكل في الملف و شكرا
Private Sub CommandButton1_Click()
Dim nom As String
    nom = ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs Filename:="D:\الصقر\" & nom & ".xls"
    rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub

 




26-08-2017 11:00 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
يمكن إلغاء خاصية رسائل التنبيه من خلال 
Application.DisplayAlerts=False

قبل بداية الكود وفي نهاية الكود قم باستخدام نفس السطر مع تغيير القيمة False إلى True
قم بتغيير الامتداد xls إلى xlsm في الكود .. 




26-08-2017 11:49 صباحا
مشاهدة مشاركة منفردة [6]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 503
الاعجاب : 0
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
استاذ ياسر لقد طبقت الكود ولكن اصبحت تظهر علبة حوار خطيرة
MjQyMTM2MQ2626Nouvelle%20image
ما هو سبب ظهور هذه الرسالة خاصة بعد عمل save
 




26-08-2017 11:51 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
لا أدري سبب هذه الرسالة لكن غالباً الكود بهذا الشكل به مشكلة .. يمكنك تتبع الكود سطر بسطر باستخدام مفتاح F8 لتصل إلى السطر الذي به مشكلة
إليك الكود التالي يقوم بعمل نسخة احتياطية للملف كل 15 ثانية ادرس الكود وحاول الاستفادة منه
Sub Create_Backup_Every_15_Seconds()
    Dim strDate As String
    Dim strTime As String
    
    strDate = Format(Date, "DD-MM-YYYY")
    strTime = Format(Time, "hh.mm.ss")
    
    Application.DisplayAlerts = False
        With ActiveWorkbook
            .SaveCopyAs Filename:="C:\TestFolder\" & strDate & "_" & strTime & "_" & .Name
        End With
    Application.DisplayAlerts = True
    
    Application.OnTime Now + TimeValue("00:00:15"), "Create_Backup_Every_15_Seconds"
End Sub

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:15"), "Create_Backup_Every_15_Seconds"
End Sub




26-08-2017 12:30 مساء
مشاهدة مشاركة منفردة [8]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 503
الاعجاب : 0
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
شكرا استاذ ياسر و بارك الله في جميع مشرفي و مراقبي الموقع على تجاوبكم مع جميع مواضيع المنتدى و اعضاءه




26-08-2017 03:54 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية
بارك الله فيك أخي العزيز زياد
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات
تقبل تحياتي






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حفظ الفاتورة وتصدير ورقة العمل إلى مصنف جديد Save Invoice Export ActiveSheet To New Workbook YasserKhalil
9 829 YasserKhalil
حفظ ملف باسم = save as nyfmpha
1 541 nyfmpha
شيت اكسل مش بيعمل save بودى مورا
1 1089 بودى مورا

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 








اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:11 مساء

أعلن هنا
أعلن هنا
أعلن هنا