كود الحفظ والخروج

[أبومروان]

السلام عليكم

الساده الافاضل تحيه طيبه وبعد....

كنت محتاج كود للحفظ والخروخ ومعاه مسج بوكس للتاكيد

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

 

 

 

 

 

 

 

😍

 

[Ali Mohamed Ali]

وعليكم السلام

عليك برفع الملف حتى تكتمل المساعدة

[Ali Mohamed Ali]

تفضل

وهذا كود اخر غير الموجود بالملف

Sub testSave()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub

وهذا كود ثالث

Sub CommandButton1_Click()
    Application.Quit
    ThisWorkbook.Save
End Sub

وهذا كود رابع

Sub SaveAndClose()
    ActiveWorkbook.Close SaveChanges:=True
End Sub

واخيرا كود خامس

Private Sub CommandButton2_Click()
Dim WB As Workbook
  If Not ThisWorkbook.Saved Then
    ThisWorkbook.Save
    MsgBox "Your data has been saved.", vbInformation, vbNullString
  End If
  For Each WB In Application.Workbooks
    If Not WB.Saved Then
      If MsgBox("You are about to exit the application.  The workbook named """ & WB.Name & """ is not saved.  Would you like to save """ & WB.Name & """ before it closes?", vbQuestion Or vbYesNo Or vbDefaultButton1, "Save Workbook...?") = vbYes Then
        WB.Close SaveChanges:=True
        DoEvents
      Else
              WB.Close SaveChanges:=False
      End If
    End If
  Next
  Application.Quit
End Sub

save & close.xlsm

تم تعديل يناير 16, 2019 بواسطه ali mohamed ali

[أبومروان]

جزاك الله كل الخيرا علي كل ما تقدمه من مجهود واعمال ولك جزيل الشكر والتقدير .

سيدي الفاضل السبب من عدم رفعي للملف هو اني محتاجه اتعمل vbn من الخبراء زاي حضرتك وكل يوم بتعمل من حضرتك معلومه جديده وبتطبقها في شغلي ولك مني وللمتندي العظيم فائق الاحترام والتقدير .😍😍

تم تعديل يناير 17, 2019 بواسطه كريم نظيم

[Ali Mohamed Ali]

بارك الله فيك اخى الكريم وبالتوفيق ان شاء الله

[أبومروان]

كلمة شكر ما تكفي والمعنى الذي توفيه لو بيدي العمر أعطيه لأعبر له عن مدى شكري