عدم ذخیره بعد از exe کردن فرم اکسل

**majid_mx4** · 2020/06/29, 12:37

با سلام

بنظر می رسه از دستورات ذخیره فایل بعد از تغییرات استفاده نشده یا اگر هم شده از دستور مناسب استفاده نشده .

بهر روی نمونه دستورات یا فایل نمونه ضروریست.
موفق باشید میر

**ms2125** · 2020/06/29, 12:50

ممنون ولی فایل اصلی مشکلی نداره وقتی به exe تبدیل میشه این اتفاق میفته

این کد ذخیره

Application.ActiveWorkbook.save
Application.Quit
End Sub

**majid_mx4** · 2020/06/29, 15:27

باسلام

لطفا از کد زیر استفاده کنید و نتیجه را اطلاع دهید.

کد:

Application.DisplayAlerts = False

 ActiveWorkbook.Save

Application.DisplayAlerts = True

موفق باشید میر

**ms2125** · 2020/06/29, 16:05

متاسفانه هيچ تغييري نكرد
البته لازم بذكر هست من يك كليد خروج ساختم و كد ذخيره هم داخل اون گذاشتم توي اكسل جواب ميده وقتي خروج ميزنم هم ذخيره ميشه هم خارج ولي وقتي تبديل به فايل اجرايي ميشه متاسفانه فقط خارج ميشه و هيچي ذخيره نميشه

**majid_mx4** · 2020/06/29, 16:19

با سلام

این کد اجباری کردن ذخیره را انجام می دهد امیدوارم درست شود در غیر اینصورت

کد:

[B][B] If ThisWorkbook.Saved = False Then 
[/B][/B][B][B]ThisWorkbook.Save End If [/B]         [/B]

در غیر اینصورت

1-بفرمایید با چه برنامه ای تبدیل به Exe میکنید.
2- آیا برنامه شما قابلیت عدم ذخیره را دارد.( ممکن است در موقع exe کردن این امکان از اکسل گرفته شده باشد )

موفق باشید میر

**ms2125** · 2020/06/29, 16:26

ممنون جناب مير از وقتي كه گذاشتيد من از برنامه XLtoEXE.exe استفاده كردم
در ضمن اين كدي كه داديد كدوم قسمت بايد وارد كنم توي همون باتون خروج زدم ولي متاسفانه هيچ تغييري نكرد

**majid_mx4** · 2020/06/29, 20:31

باسلام

خواهش میکنم ، این کد در هر قسمتی میتوانید وارد کنید مخصوصا موقع خروج یا ثبت .

لطفا در برنامه Excel to Exe چک کنید در قسمت Exe File Save Option هیچ تیکی نخورده باشد و Backup Levels هم روی 1 باشد اگر این مورد رعایت شده باشد حتما باید فایل نمونه یا قسمت مورد نظر خود را ارسال فرمایید تا روی آن کار شود .

موفق باشید میر

**kazem1359** · 2020/06/29, 22:26

سلام دوست عزیز این کد برای خروج امتحان کن ببین درست میشه

کد PHP:


    Dim WB As Workbook

For Each WB In Workbooks
If Not (WB Is ActiveWorkbook) Then WB.Close
Next
ActiveWorkbook.Save
ActiveWorkbook.Close
   Application.Quit
End Sub

سلام خدمت اساتید محترم و اقای میر گرامی
بنده قبلا از کد بالا در فایلم که exe شده بود استفاده می کردم و مشکلی نداشتم تا اینکه جدیدا چند مورد به فایلم اضافه کردم اکنون هنگام خروج با خطا زیر روبرو می شم علت چیست؟ ممنون میشم راهنمایی کنید

http://uupload.ir/files/bvmx_untitled.jpg

**ms2125** · 2020/06/30, 08:50

ممنون با اين كد آقا كاظم درست شد و سيو ميشه ولي هر وقت كليد خروج ميزنم يه اررو ميده بعد خارج ميشه

Error 424 (Object required)

**kazem1359** · 2020/06/30, 23:56

سلام دوست عزیز درسته ارور میده من هم نمیدونم چرا ولی مشکلی روی فایل و ذخیره فایل نداره فایل شما به درستی سیو میشه نگران ارور داده شده نباشید به نظر بنده چون فایل تبدیل کننده به exe می بایست با کدفعالسازی فعال شود و فعال نشده این ارور به خاطر این هست.