اريد كود الحفظ

[اشرف النعاس]

اريد كود عند تنفيده يقوم بغلق اليوزر و حفظ ما تم ادخاله في اكسل شيت بدون اظهار اكسل شيت

[وليد فتحي]

السلام عليكم ورحمة الله وبركاتة

الاستاذ اشرف النعاس

على حسب فهمي لطلبك اتفضل

 Sub W_SAVE()
    On Error Resume Next
 Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True
End Sub

[اشرف النعاس]

اخي العزيز ما الفرق بين الكود الذي قمت بكتابته و هذا الكود 

ActiveWorkbook.Save

Application.Quit

ActiveWorkbook.Close SaveChanges:=False