اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by مصطفى شاهين,

الردود الموصى بها

الساده

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

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

دمتم بخير

11.png

رابط هذا التعليق
شارك

  • 4 weeks later...

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

مرفق مثال


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

  • Like 2
رابط هذا التعليق
شارك

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

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

دمتم بخير

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

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

رابط هذا التعليق
شارك

  • 2 months later...

 

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

اضغط 

ALT+F11

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

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

SNAG-0052.jpg.fba48f903caea7b697904979fd1cb7e4.jpg

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

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

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information