السلام عليكم
الاخ الكريم / رائد
بارك الله فيك
اليك اخي الكريم كود بسيط يقوم بتنفيذ طلبك
ويمكنك فيه اختيار الشيتات المطلوب تنفيذ هذا الامر عليهم او تحديد شيت واحد فقط من خلال هذا السطر في الكود
Case "Sheet1", "Sheet2"
حيث تم تحديد هنا شيت 1 و شيت 2 لمنع الطباعة بهم
واليك الكود كاملا ... ويتم وضعه في حدث الملف في ThisWorkbook
Private Sub workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Sheet1", "Sheet2"
Cancel = True
MsgBox "عفوا لايمكنك الطباعة هنا .. مع تحياتي/ حمادة عمر ", vbInformation
End Select
End Sub
ارجو ان يفي ذلك بطلبك
جزاك الله خيرا
منع الطباعة في الملف.rar