Application.DisplayAlerts = False
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name
Application.DisplayAlerts = true
Önce Bul Sonra Kaydet Veya Farklı Kaydet
Konuyu Okuyanlar: 2 Ziyaretçi
Application.DisplayAlerts = False
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name
Application.DisplayAlerts = true