اذا كان لدي ملف اكسل يحتوي على نموذج معين وانا اقوم بفتح هذا الملف من داخل ال vb ومن ثم اقوم بكتابة المعلومات التي احتاجها من داخل البرنامج واحفظ الملف باسم مثلا name والملف الاصلي الذي يحتوي على النموذج يبقى كما هو ولا يتم حفظ التغييرات عليه
السؤال:هل من طريقة لكي امنع من حفظ اي تغيير على الملف الاصلي لانه احيانا قد يصدف خلل في البرنامج ولا يصل الى تنفيذ الجمل جميعها ويؤدي ذلك الى حفظ التغييرات على الملف الاصلي؟
اخي الكريم
استخدم 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
ارجو ان يكون وفقني الله في الاجابه علي سؤالك
انا عامل الكود save as ولكن انا اقصد الملف الاصلي الذي افتحه في كل مرة ادخل على صفحة البرنامج واخذه كنموذج اكتب عليه واعمل save as اما الاصلي لا احفظ عليه
ربما يكون الحل اذا كان لدي طريقة اعمل تعطيل لكل الازرار في الصفحة بحيث لا تفعل الا بعدما يتنهي من الحفظ ويعطي رسالة تم الحفظ بنجاح