حماية أوراق العمل ( الشيتات ) من الحذف أو الإضافة دون عمل كلمة مرور للمصنف

[Salem2020]

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

مرفق ملف عبارة عن جزء بسيط من مشروع مدرسي قمت بإعداده واضفت له العديد من وحدات الماكرو  وعند تشغيله يتم إخفاء كافة النوافذ والقوائم وأوراق العمل بحيث لا يستطيع أحد تغيير أي شيء فيه على الاطلاق حيث أصبح الملف أشبه ما يكون بالبرنامج المتكامل إضافة إلى أن البيانات ومحرر الاكواد محميين بكلمة مرور فيصبح من الصعب تعديل أو إضافة أي شيء

المشكلة هي وجود ثغرة أمنية بسيطة جدا متعلقة بأوراق العمل (الشيتات) فعندما أقوم بعمل كلمة مرور لكامل المصنف بغرض حماية الشيتات من الحذف أو الإضافة يؤدي ذلك إلى تعطيل وحدات الماكرو (وعند إخفاء الشيتات من الخيارات المتقدمة) يستطيع أي شخص الدخول إليها وإظهارها والعبث فيها وهذا هو الغرض الذي من أجله قمت بإعداد الملف لكي يفتح بدون عرض أي قوائم أو نوافذ.

المشكلة تكمن في انه عند الضغط على مفتاحي Ctrl + P اختصار أمر الطباعة يؤدي ذلك إلى ظهور قائمة الخيارات والتي من خلالها يمكن إظهار أوراق العمل والعبث بها.

المطلوب : هل استطيع بأي وسيلة تعطيل تلك القائمة أو إلغاء أمر الطباعة عن طريق لوحة المفاتيح أو حماية الشيتات بأي طريقة أخرى دون تعطيل وحدات الماكرو

ولكم كل الشكل والتقدير

 

School.xlsm

[حسونة حسين]

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

لالغاء عمل طباعه عن طريق ctrl +p

ضع هذا السطر في كود Private Sub Workbook_Open

Application.OnKey "^p", ""

بعد هذا السطر

Application.ScreenUpdating = False

ليصبح هكذا

Application.ScreenUpdating = False
Application.OnKey "^p", ""

 

[Salem2020]

7 ساعات مضت, hassona229 said:

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

لالغاء عمل طباعه عن طريق ctrl +p

ضع هذا السطر في كود Private Sub Workbook_Open

Application.OnKey "^p", ""

بعد هذا السطر

Application.ScreenUpdating = False

ليصبح هكذا

Application.ScreenUpdating = False
Application.OnKey "^p", ""

 

جزاك الله خير .. ونفع بعلمك الإسلام والمسلمين 

تم عمل المطلوب بنجاح 

مليون شكر 

[حسونة حسين]

وجزاكم مثله اخى الكريم 

والحمد لله الذي بنعمته تتم الصالحات