Excell' de print ve kayıt engelleme hk.

[SIDDIK]

Arkadaşlar Excell sayfasında print ve kayıt engelleme nasıl yapabilrim yardımcı olabilirmisiniz.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodları çalışmanızın ThisWorkbook bölümüne uygulayın. Bu şekilde dosyanızda ne yazdırma işlemi ne de kaydetme işlemi yapılamaz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    MsgBox "Yazdırma işlemi iptal edilmiştir...", vbCritical
    Cancel = True
End Sub
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    MsgBox "Dosyayı kayıt etme işlemi iptal edilmiştir...", vbCritical
    Cancel = True
End Sub

 

[SIDDIK]

kodu yaptım ama hata veriyor excell

 

[SIDDIK]

resimdeki hata

 

[Korhan Ayhan]

Hata mesajı kod ile alakalı değildir. Dosyayı kayıt ederken dosya türü bölümünden "makro içeren" dosya olarak seçim yapmalısınız.

 

[SIDDIK]

tamam macrolu olarak kaydediyorum dosyayı ama yine uygulamıyor

 

[Korhan Ayhan]

Ne uyarısı veriyor.

 

[SIDDIK]

Teşekkür ederim çözdüm

 

[Mehmet Sait]

Merhaba

Excel 2016 kullanıyorum. Print engellemek için bulduğum bu kodu verdiğimde, Print edilme engellenmiyor.
Yardımlarınız için teşekkür ederim.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    MsgBox "Yazdırma işlemi iptal edilmiştir...", vbCritical
    Cancel = True
End Sub