Tablo yedeğini almak

[k0081]

Merhaba arkadaşlar;

Excel tablomun bir yedeğini ( Command butonlar ve Kodlar ) olmadan yedekleme yapmak istiyorum.

Private Sub CommandButton3_Click()
Dim ts, masaya
Dim S1 As Worksheet, i As Integer

Set ts = CreateObject("Wscript.Shell")
masaya = ts.SpecialFolders.Item("Desktop")

'ActiveSheet.Copy , Worksheets(Sheets.Count)
    Set S1 = ActiveSheet

S1.DrawingObjects.Delete
    
   For i = 1 To Sheets.Count
       Set VBCodeMod = ThisWorkbook.VBProject.VBComponents(Sheets(i).Index + 1).CodeModule
       VBCodeMod.DeleteLines 1, VBCodeMod.CountOfLines
    Next

ActiveWorkbook.SaveAs Filename:= _
masaya & "\" & Range("B2") & ".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
MsgBox "Masaüstüne Yedeklendi", vbInformation
ActiveWorkbook.Close

End Sub

Bu kod ile yedekleme yapıyorum.. Fakat Yedeklenen dosyayı açtığımda ;

"Güvenlik uyarısı Makrolar devre dışı bırakıldı " uyarısı alıyorum.. Yedeklenen dosyada herhangi bir Kod , yada command buton bulunmamasına rağmen.. bunu nasıl düzeltebilirim ?

Yani Güvenlik uyarısı vermesin , istiyorum..

 

[askm]

Dim ile tanımlamadan sonra Application.DisplayAlerts = False yazın uyarı çıkmaz.

 

[k0081]

Dim ile tanımlamadan sonra Application.DisplayAlerts = False yazın uyarı çıkmaz.

Yazdım. Fakat sonuç değişmedi. Teşekkürler..