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

[hamidkarimi63]

با سلام
می خواستم بدونم چطور می شه در فرمی که در vba طراحی کرده ام بعد از بسته شدن فرم اطلاعات فایل اکسل به صورت خودکار ذخیره شود؟

[امين اسماعيلي]

RE: نحوه ذخیره فایل بصورت خودکار بعد از بسته شدن فرم

Dim amin As String
amin = MsgBox("Do you want to save your change", vbInformation + vbYesNo, "Notice")
If amin = vbYes Then
TextBox1.Text = ""
TextBox2.Text = ""
ThisWorkbook.Close savechanges:=True
Unload Me

Else

MsgBox "Your changing not save ", vbExclamation
ThisWorkbook.Close savechanges:=False
Unload Me
End If


amin یه اسمه همینجوری فایل من دوتا تکست باکس تو فرمم داشته که مربوط به یوزر و پسورد بوده و گفتم که بعد از بسته شدن پاک بشن هر چند نظاری هم فرق نداره

در ضمن من یه مسیج باکس دارم که در صورت yes تغیییرات رو save و در غیر این صورت یعنی no ،نمیشه

اینو واسه کلید Exit یا QueryClose فرم بنویس اما اگر میخوای فرمت فقط با دکمه خروج بسته بشه و با ضربدر قرمز رنگ بسته نشه باید در QueryClose بنویسی cancel=true


در پناه خداوندگار ایران زمین باشید و پیروز