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

[عبدالله المجرب]

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

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

النسخ واللصق.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 و ايضا من الكيبورد

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

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

خالص تحياتي

[رعد العزاني]

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

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

أخوك بن علية

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

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

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

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

[أحمد فؤاد]

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

عمل رائع أخي بن علية

بارك الله فيك

ولا أستطيع أن أنسى أستاذي الحسامي

الله يباركلك

أخوك : أحمد فؤاد

[اسلام سيد]

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

 

ولكن ماذا نفعل لإيقاف النسخ واللصق فى قائمة home