sayfayı silerken onay istememesi

[YASINT]

arkadaşlar aşağıdaki kodu yazdım fakat benden (Silmek için seçilen sayfalarda veri olabilir. Verileri kalıcı olarak silmek için sili tıklayın) ibaresi çıkıyor. Bunu nasıl kaldırabilirim. Bu uyarıyı vermesini istemiyorum. Teşekkürler.

For a = 1 To Sheets.Count
If Sheets(a).Name = "Kasadaki Çekler" Then
Sheets("Kasadaki Çekler").Select
ActiveWindow.SelectedSheets.Delete
End If
Next

 

[tirvana]

bu tur bir kod art niyetli olarak kullanılabilir.
yani makro ile virüs yazılması anlamına gelebilir.
kulanım amacınızı yazarsanız belki cevap alabilirsiniz.

 

[YASINT]

bu kodlarlar nasıl bir art niyet olacağını bilmiyorum ama kullanım amacımı söyliyim sadece çek programı yapmaya çalışıyorum tabi ki de sizlerin yardımıyla tek yapmak istediğim bu.

 

[Levent Menteşoğlu]

Kodunuzun en üstüne ilk satır olarak aşağıdaki satırı ilave edin.

Application.DisplayAlerts = False

 

[YASINT]

çok teşekkür ederim Sn. leventm istediğim buydu çok sağolun.