Resimdeki ekranın çıkmamasını sağlamak

[Mdemir63]

Selamlar
Arkadaşlar kod ile resimdeki ekranın evet e tıklanmış gibi çıkmamasını nasıl sağlaya bilirim?

Saygılar

 

[Korhan Ayhan]

Merhaba,

Eğer dosya kaydetme işlemini makro ile yapıyorsanız kod içinde dosya biçimini belirterek bu uyarının çıkmasını engelleyebilirsiniz.

Aramanız gereken komut Fileformat komutudur.

 

[Ahmet Sami]

Çalıştığınız excel 'i xlsm değil xls olarak kaydedin. Yani 97-2003 olarak kaydedin.

 

[Mdemir63]

Merhaba,

Eğer dosya kaydetme işlemini makro ile yapıyorsanız kod içinde dosya biçimini belirterek bu uyarının çıkmasını engelleyebilirsiniz.

Aramanız gereken komut Fileformat komutudur.

@Korhan Ayhan Hocam aşağıdaki kodları kullanıyorum. Dosya biçimini kodların neresinde belirtmeliyim?

Saygılar

Option Explicit

Dim Yol As Variant
Dim Dosya_Adi, Sayfa_Adi As Range, Zaman As Long

Sub dosyayap()
Sheets("sablon").Range("Q1").ClearContents

Application.ScreenUpdating = False
Yol = ThisWorkbook.Path
Dosya_Adi = Worksheets("sablon").Range("N1")

Sheets("sablon").Select
Sheets("sablon").Copy
ActiveSheet.Shapes.SelectAll
Selection.Delete
Worksheets("sablon").Name = Dosya_Adi


ActiveWorkbook.SaveAs Filename:=Yol & "\" & Date & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Range("J1") = Dosya_Adi
Range("H17") = Dosya_Adi & " Tarihli Kasa İşlemi"
ActiveWorkbook.Save
ActiveWindow.Close

Sheets("sablon").Select
Sheets("sablon").Range( _
"B3:C13,B15:B20,C14:C22,I3:I8,K3:L4,N2:N4,N7,J10:J11,N11:N13,J18:J19,N18,Q1"). _
Select
Selection.ClearContents
Sheets("sablon").Range("B3").Select


Application.ScreenUpdating = True
End Sub[/CODE]

 

[Mdemir63]

Sn: @Ahmet Sami ilginize teşekkür ederim.

 

[Mdemir63]

Selamlar

Örnek dosyamı gönderiyorum.
Sanırım sablon sayfasındaki kodlardan kaynaklanıyor olabilir diye düşünüyorum. Ama nasıl düzelteceğimi bulamadım.

Saygılar

 

[EmrExcel16]

Merhaba ,

Kod içindeki FileFormat:=xlOpenXMLWorkbook bu bölümü ,
bu şekilde FileFormat:=xlOpenXMLWorkbookMacroEnabled değiştirerek deneyiniz.

İyi çalışmalar.

 

[Mdemir63]

Merhaba ,

Kod içindeki FileFormat:=xlOpenXMLWorkbook bu bölümü ,
bu şekilde FileFormat:=xlOpenXMLWorkbookMacroEnabled değiştirerek deneyiniz.

İyi çalışmalar.

Selamlar
Hocam aşağıdaki 2 şekilde de denedim olmadı.
Not: Sayfanın kod bölümündeki kodları bloke ettiğimde bahsettiğim pencere çıkmıyor

    ActiveWorkbook.SaveAs Filename:=Yol & "\" & Date & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


    ActiveWorkbook.SaveAs Filename:=Yol & "\" & Date & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[Haluk]

Bu şekilde kullanın;

Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:=Yol & "\" & Date & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
Application.DisplayAlerts = True

.

 

[Mdemir63]

Bu şekilde kullanın;

Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:=Yol & "\" & Date & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
      
Application.DisplayAlerts = True



@Haluk Hocam çok teşekkür ederim.