vba kodları siliniyor

[mesutaygun70]

excelde safyaları pdf çevir makrosu yaptım. aşağıda görebilirsiniz. Fakat dosyayı kayıt edip tekrar açtığımda her seferinde bir sorunla karşılaştı düzeltme istiyormusunuz uyarısı veriyor. Hayır dersem çıkış yapıyor. Evet dersem onarma işleminde makroları siliyor.

Sheets("RS 30").Select
Sheets("RS 30").PageSetup.PrintArea = Range("a1:J32").Address
aktifsayfa = ActiveSheet.Name
Sheets(Array("RS 30")).Select
yol = ThisWorkbook.Path & "\"
isim = "RS 30"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets(aktifsayfa).Select

 

[askm]

Kodlarınızın başına Application.DisplayAlerts=false yazıp sonuna Application.DisplayAlerts=True yazıp deneyin.