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

الغاء خاصية النسخ


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

في المرفق تم الغاء خاصية اللصق ولكن المطلوب الان هو الغاء خاصية النسخ ايضاً

مزيد من الشرح داخل المرفق

النسخ واللصق.rar

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

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

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

 

Private Sub Workbook_Open()

    Call ToggleCutCopyAndPaste(False)

End Sub


ولألغاء الكود عند اغلاق الملف
 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Call ToggleCutCopyAndPaste(True)

End Sub

مع الشكر له

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

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

جزاك الله خير استاذ احمد

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

صورة الخطاء.rar

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

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

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

أخوك بن علية

Disable cut_copy_paste.rar

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

جزاك الله خير استاذ احمد

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

السلام عليكم

آسف جدا اخي الكريم

و في الحقيقة لم اجرب هذه من قبل

أخي بن علية

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

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

السلام عليكم

بارك الله فيكم

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

Application.CommandBars("CELL").Controls("Cu&t").Enabled = False

Application.CommandBars("CELL").Controls("&Copy").Enabled = False

Application.OnKey "^c", ""

Application.OnKey "^v", ""

Application.OnKey "^x", ""
وللتفعيل
Application.CommandBars("CELL").Controls("Cu&t").Enabled = True

Application.CommandBars("CELL").Controls("&Copy").Enabled = True

Application.OnKey "^c"

Application.OnKey "^v"

Application.OnKey "^x"

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

السلام عليكم

الشكر واصل للجميع

اخي ابن عليه

كود ممتاز خاصة و انه يشمل عدم تمكين النسخ و اللصق

و القص من الكليك يمين و ال Edit و ايضا من الكيبورد

اي ان الكود مكتمل من كافة الجوانب فلك الشكر علي ذلك

اخي احمد يعقوب تحية لك و اعتقد انه ينقص كودك الماكرو الذي يستدعيه الكود

خالص تحياتي

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

  • 1 year later...

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

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

أخوك بن علية

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

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

حسب ما جربتة انا

تحياتي لمعاليكم

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

  • 1 year later...

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

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



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

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

Important Information