بسته شدن و باز شدن یک فایل

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

با درود
اول که نگو مغزم قد نمیده خوشکل پسر - دوم این کد رو به جای کلید سیو بزار که همون کلید شماره 4 هستش - کامل پاک کن اینو بزار امیدوارم مشکلت حل بشه - تکنیکشو بگیر واسه جاهای دیگه - اگرم مشکل حل شده اون کلید که امیر همیشه میگه رو بزن که حل شده -

Private Sub CommandButton4_Click()
 Application.DisplayAlerts = False
Dim savedialoge
SaveDialog = Application.Dialogs(xlDialogSaveAs).Show("*.xlsm")
If SaveDialog = True Then
  ActiveWorkbook.Save
  Unload Me
    Sheet1.Range("A1:c100").ClearContents
  ActiveWorkbook.Save
  Sheet1.Select
  
  Else
MsgBox "your process is not done successfully"
End If
Application.DisplayAlerts = True
End Sub

[علی فاطمی]

با سلام و ممنون از توجه شما ،
مثل همیشه عالی .