نوشته اصلی توسط
Skynet
سلام مهندس نصف شبی کلی خندیدممم مرسی داداش
آقا فقط یه نکته :
اون پیغامه خوبه بیاد ، شاید کاربر تغییراتی رو انجام بده و نخواد ذخیره کنه و خارج بشه ! با این روش هنگام خروج فایل ذخیره میشه!
بنظرت راهی هست اون پیغام ذخیره یا عدم ذخیره بیاد ولی عکس در آخر نشون داده نشه ؟!
مرسی از کدها و ترفندهای خوبت ، از هر کدوم در بخش های مختلفی از کارم می تونم استفاده کنم خدا خیرت بده
.
مهندس نیستم... مدیریت خوندم
.
کد ذیل رو جایگزین کنید تا قبل از بسته شدن به کاربر پیغام دهد.
.
کد PHP:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Dim Ans, caption, title As String
title = "اخطار برنامه"
caption = "تمامي تغييرات صورت گرفته ذخيره شده و برنامه بسته خواهد شد. برنامه بسته شود؟"
Ans = MsgBox(caption, vbYesNo, title)
If Ans = vbYes Then
Sheets("Home").Shapes.Range(Array("Picture 1")).Visible = msoTrue
Sheets("Home").Select
Me.Save
Else
Cancel = True
End If
End Sub
علاقه مندی ها (Bookmarks)