مطلوب طريقة لمنع الطباعة باي طريقة في شيت او عدة شيتات

[رائد 1982]

الاساتذة الكرام

مطلوب طريقة لمنع الطباعة باي طريقة ممكنة في الاكسيل

اي تمنع الطباعة من خلال ايقونة الطباعة في شرائط الادوات

اي تمنع الطباعة من خلال قائمة ملف

اي تمنع الطباعة من خلال استخدام Ctrl + P

 

واعلم انه ليس بالصعب عليكم  ان شاء الله

[حمادة عمر]

السلام عليكم

الاخ الكريم / رائد

بارك الله فيك

اليك اخي الكريم كود بسيط يقوم بتنفيذ طلبك

ويمكنك فيه اختيار الشيتات المطلوب تنفيذ هذا الامر عليهم او تحديد شيت واحد فقط  من خلال هذا السطر في الكود

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

[رائد 1982]

يا لروعتك استاذي الكريم الكبير في المقام والعالي

هذه هي روعة هذا المنتدي تظهر جليا في شخصكم الكريم

جزاك الله خيرا

[حمادة عمر]

بارك الله فيك

اخي الكريم

جزاك الله خيرا

[أبو محمد عباس]

الاستاذ والاخ الحبيب والمبدع والمتالق دائما ابو سما حفظكم الله سبحانه وتعالى وزادك من فضله علما ومعرفة

 

[حمادة عمر]

السلام عليكم

الاخ الحبيب / عباس السماوي

بارك الله فيك

دائما مرورك يشرفني ويسعدني

جزاك الله خيرا