كود عدم النسخ والطباعة والتعديل

[ياسر فاروق]

الساده

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

رجاء المساعده فى الحصور على كود وظيفته حماية ملف الوورد من النسخ والتعديل والطباعة

حتى لو تم استعمال لوحة المفاتيح

وشكرا على المساعده

[مصطفى شاهين]

تحية طيبة وبعد،

بدايةً يجب أن يكون الملف به أكثر من مقطع (ضروري)، وذلك عن طريق تبويب تخطيط الصفحة واختار تبويب فواصل - فواصل المقطع - مستمر، سينشئ مقطع آخر بنفس الصفحة، وستلاحظ عند ترقيم الصفحات قد تم كتابة مقطع: 2 (هذه أهم خطوة)

بعد تتبع الخطوات وبالنهاية يمكنكم بدء فرض الحماية بكلمة السر، كما هو موضح بالمرفق.

لا يمكن الآن النسخ أو التعديل، أما فيما يتعلق بالطباعة فلا يوجد لديَّ معلومات بخصوص ذلك.

دمتم بخير

[ياسر فاروق]

مصطفى شاهين

شكرا على اهتمامك ووقتك الثمين

[مصطفى شاهين]

العفو، بالخدمة دوماً

[محمد طاهر عرفه]

لمنع الطباعة يمكنك استخدام هذا الكود

مرفق مثال

Dim WithEvents WordApp As Application

Private Sub Document_New()
    Set WordApp = Application
End Sub

Private Sub Document_Open()
    Set WordApp = Application
End Sub

Private Sub WordApp_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    
    'Text displayed to the user if they try to print
    strMessage = "لا يمكن طباعة هذا المستند "
    
    MsgBox strMessage, vbOKOnly + vbExclamation, "Print"
        Cancel = True

End Sub

المصدر

 

مرفق مثال   noprint.zip

[مصطفى شاهين]

بارك الله فيك أستاذنا الفاضل.

دمتم بخير

[ياسر فاروق]

في ‏٠٨‏/‏٠٩‏/‏٢٠١٧ at 23:24, مصطفى شاهين said:

بارك الله فيك أستاذنا الفاضل.

دمتم بخير

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

شكرا جزيلا على وقتك الثمين أ. محمد طاهر

[yahiaelroby]

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

تم تعديل نوفمبر 19, 2017 بواسطه yahiaelroby

[محمد طاهر عرفه]

 

عند فتح الملف تاكد من قبول خيار تفعيل الاكواد

اضغط 

ALT+F11

ليظهر لك محرر الأكود ، 

سيظهر الوضع بالشكل التالي

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

انقر نقرا مزدودا على اسم الملف و اضف نفس الاكواد فى نفس المكان

او افتح الملفان معا و انسخ الاكواد للسهولة  لتصبح فى نفس المكان