excel dosyasının üzerine yazdığımda "üzerine yazmak istiyor musunuz?"uyarısı çıkmasın

[mücahitayan]

excel dosyasının üzerine yazdığımda "üzerine yazmak istiyor musunuz?"uyarısı çıkmasın

merhaba değerli arkadaşlar

Sheets("ROOT2").Select
SOR3 = MsgBox("ROOT DÖKÜMÜ EXCEL DOSYASI OLARAK ÇIKARTILSIN MI? C:\ROOT.XLS", vbYesNo)
If SOR3 = vbNo Then Exit Sub
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir ThisWorkbook.Path & "\root\"
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\root\ROOT.XLS", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Close

kodlarım bu şekilde..

istediğim şey ise

ben bu kaydı gerçekleştirmek için butonu tıkladığımda zaten uyarım çıkıyor. ayrıca excelin kendi uyarısı yani "\\....\ konumundaki dosyanın üstüne yazmak istediğinizden emin misiniz?" benzeri bir uyarı çıkmadan direkt kaydetsin.

olabilir mi acaba? teşekkür ederim.

 

[uzmanamele]

merhaba

bunu deneyiniz

Application.DisplayAlerts = False

 

[mücahitayan]

çok teşekkür ederim.kodu yazdım ve tam istediğim gibi oldu.