[tecno2012]

اذا كان لدي ملف اكسل يحتوي على نموذج معين وانا اقوم بفتح هذا الملف من داخل ال vb ومن ثم اقوم بكتابة المعلومات التي احتاجها من داخل البرنامج واحفظ الملف باسم مثلا name والملف الاصلي الذي يحتوي على النموذج يبقى كما هو ولا يتم حفظ التغييرات عليه

السؤال:هل من طريقة لكي امنع من حفظ اي تغيير على الملف الاصلي لانه احيانا قد يصدف خلل في البرنامج ولا يصل الى تنفيذ الجمل جميعها ويؤدي ذلك الى حفظ التغييرات على الملف الاصلي؟

[tecno2012]

اين الرد هل من احد يجيب

[ahmed salam]

اخي الكريم
استخدم save as بدلا من save
مثال للكود

كود :

Dim ReportApp As New excel.Application
        Dim ReportWB As excel.Workbook
        Dim ReportWS As excel.Worksheet

        ReportWB = ReportApp.Workbooks.Open(Application.StartupPath & "\temp.xls")
        ReportWS = ReportWB.Worksheets("اسم الشييت")

ReportWB.Application.DisplayAlerts = False
        ReportWS.SaveAs(Application.StartupPath & "\Out.xls")
        ReportWB.Close()
        ReportApp.Quit()

و هذا السطر هو الذي يلغي رسالة تأكيد الحفظ بأن الملف موجود من قبل هل تريد الكتابة عليه
ReportWB.Application.DisplayAlerts = False

ارجو ان يكون وفقني الله في الاجابه علي سؤالك

[tecno2012]

انا عامل الكود save as ولكن انا اقصد الملف الاصلي الذي افتحه في كل مرة ادخل على صفحة البرنامج واخذه كنموذج اكتب عليه واعمل save as اما الاصلي لا احفظ عليه
ربما يكون الحل اذا كان لدي طريقة اعمل تعطيل لكل الازرار في الصفحة بحيث لا تفعل الا بعدما يتنهي من الحفظ ويعطي رسالة تم الحفظ بنجاح