منع طباعة أوراق العمل

[ياسر خليل أبو البراء]

السلام عليكم ورحمة الله وبركاته

إخواني الأحباب

أقدم لكم كود خفيف .. الكود يقوم بمنع المستخدم من طباعة أوراق محددة في المصنف ..

في المرفق ثلاثة أوراق عمل Data1 - Data2 - Data3

 

الكود يوضع في حدث المصنف ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Select Case ActiveSheet.Name
        Case "Data1", "Data2"
        Cancel = True
        MsgBox "The sheet " & ActiveSheet.Name & " cannot be printed!", vbInformation
    End Select
End Sub

يعتمد الكود على جملة Select Case الشرطية .. والقيمة التي تعتمد عليها اسم ورقة العمل النشطة

فإذا كانت ورقة العمل النشطة Data1 أو Data2 .. يتم إلغاء عملية الطباعة وظهور رسالة تفيد أن ورقة العمل لا يمكن طباعتها ...

 

يمكنك زيادة أوراق العمل من خلال السطر الذي يبدأ بكلمة Case على أن تكون أسماء أوراق العمل بين أقواس تنصيص ..

كما يمكن منع الطباعة بالمصنف بالكامل بحذف أول سطرين من الكود وآخر سطر ، ليصبح بهذا الشكل

Private Sub Workbook_BeforePrint(Cancel As Boolean)
        Cancel = True
        MsgBox "The sheet " & ActiveSheet.Name & " cannot be printed!", vbInformation
End Sub

بهذا يمكنك التحكم في طباعة أوراق العمل من عدم طباعتها

 

أرجو أن يكون الموضوع مفيد ...رغم أنه ليس بجديد ..

تقبلوا تحيات أخوكم أبو البراء

Prevent Worksheets From Printing.rar

[خزاني]

شكرا للمساهمة واشعت نور للمنتدي

[ياسر خليل أبو البراء]

المنتدى منور بتواجد أمثالك أخي الغالي خزاني ..أنت ثروة لم تكتشف بعد ..

[حمادة عمر]

السلام عليكم

الاخ والاستاذ الحبيب / YasserKhalil

بارك الله فيك

كل ما تقدمه بالفعل هو جديد حتي لو كان الموضوع قديماً

فالجديد فيه روحك الجميلة وحبك لافادة الآخرين بكل وسيلة

تقبل خالص تحياتي

[Yasser Fathi Albanna]

أنت بالفعل أخى الغالى ياسر ثروة غالية لا تقدر بثمن

زادك الله الكثير من علمه وأنار قلبك بالعلم والإيمان

[ياسر خليل أبو البراء]

الأخ الغالي حماده عمر ..لكم يسعدني ردك في أي موضوع من موضوعاتي ..بارك الله فيك

وأشكرك على كلماتك الرقيقة ، وإطرائك الجميل

الأخ الحبيب الباشمهندس ياسر الذي لا يفوت الرد في أي موضوع ..

مشكور على مرورك العطر وروحك الطيبة

[جولدى عتمان]

شكرا للمساهمة

 

 

www.kfs.edu.eg

شكرا للمساهمة

تم تعديل أبريل 3, 2015 بواسطه جولدى عتمان

[ashraf_6770]

طبعا رائع

[ياسر خليل أبو البراء]

الأروع هو مرورك العطر أخي الكريم ..