Yazdırmadan Önce İkazı Belirli Sayfalarda Vermesin

[htsumer]

Merhaba,
Yazdırmadan Önce Aşağıdaki kod ile İkaz veriyorum..

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ikaz = MsgBox("Cari Kartı Yazdırmadan Önce Satırları GİZLE Butonu tıklayadınızmı? ", vbYesNo + vbExclamation, "Dikkat !")
If ikaz = vbNo Then Cancel = True
End Sub

Fakat bu ikazı "ŞABLON","ANA MENÜ","ŞABLON","Açıklama" Sayfalarını yazdırırken vermesin..

 

[askm]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
if ActiveSheet.name<>"ŞABLON" or  ActiveSheet.name<>"ANA MENÜ" or ActiveSheet.name<>"Açıklama" then
ikaz = MsgBox("Cari Kartı Yazdırmadan Önce Satırları GİZLE Butonu tıklayadınızmı? ", vbYesNo + vbExclamation, "Dikkat !")
If ikaz = vbNo Then Cancel = True
end if
End Sub

 

[htsumer]

Teşekkür ederim. Fakat ilgili sayfalarda o ikazları veriyor.

 

[askm]

Rica ederim. Kolay gelsin.