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

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

قام بنشر

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

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

 

Private Sub Workbook_Open()

    Call ToggleCutCopyAndPaste(False)

End Sub


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

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Call ToggleCutCopyAndPaste(True)

End Sub

مع الشكر له

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

قام بنشر

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

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

أخوك بن علية

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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information