Note: The other languages of the website are Google-translated. Back to English

كيفية تعطيل وظائف القص والنسخ واللصق في إكسيل؟

لنفترض أن لديك مصنفًا يحتوي على بيانات مهمة تحتاج إلى حمايتها من القص والنسخ واللصق. كيف تحقق ذلك؟ توفر هذه المقالة طريقة VBA لتعطيل وظائف القص والنسخ واللصق في نفس الوقت في مصنف Excel.

تعطيل وظائف القص والنسخ واللصق باستخدام كود فبا


تعطيل وظائف القص والنسخ واللصق باستخدام كود فبا

يرجى القيام بما يلي لتعطيل وظائف القص والنسخ واللصق في مصنف Excel.

1. في المصنف ، تحتاج إلى تعطيل وظائف القص والنسخ واللصق ، يرجى الضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء النقر المزدوج ThisWorkbook في اليسار قسم المشاريع ، ثم انسخ والصق رمز VBA أدناه في ملف ThisWorkbook (كود) نافذة او شباك. انظر لقطة الشاشة:

كود فبا: تعطيل وظائف القص والنسخ واللصق في نفس الوقت في إكسيل

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. ثم الرجاء الضغط على قديم + Q مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

الآن لا يمكنك قص البيانات أو نسخها من هذا المصنف ، وفي الوقت نفسه ، لا يمكن لصق البيانات التي نسختها من أوراق أو مصنفات أخرى في هذا المصنف.

ملاحظة: يتم أيضًا تعطيل وظيفة السحب والإفلات بعد تشغيل رمز VBA أعلاه.


مقالات ذات صلة:


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (50)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أفعل ما ورد أعلاه ولكن وظيفة قص النسخ والماضي معطلة في أي ملف إكسل أقوم بفتحه. لماذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد استخدمت هذا لإخفاء "قص" عن المستخدمين وهو يعمل بشكل رائع ما لم يكن لديك جدول ، يظهر "قص" بأعجوبة عند تحديد خلية في الجدول ، وهو بالضبط ما أحاول تجنبه. أيه أفكار؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك يا سيدي عملها. ولكن في المصنف بأكمله. إذا كنت بحاجة إلى هذا الرمز فقط فأنا ورقة معينة فهل هذا ممكن ؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل وجدت إجابة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا انها تعمل في كتاب العمل بأكمله. هل يمكننا عمل الترميز لورقة واحدة فقط. الرجاء المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية تمكين وظيفة القص والنسخ واللصق مرة أخرى؟ من فضلك النصيحة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي سكاي
يرجى تشغيل VBA1 أدناه (ضع الكود في الوحدة النمطية ThisWorkbook) لتعطيل وظيفة القص والنسخ واللصق في المصنف الخاص بك.

VBA1:
Sub DelCopy ()
مع التطبيق
.OnKey "^ x"، ""
.OnKey "^ c"، ""
.CommandBars ("الخلية"). عناصر التحكم (1). ممكّن = خطأ
.CommandBars ("الخلية"). عناصر التحكم (2). ممكّن = خطأ
انتهت ب
نهاية الفرعية

وقم بتشغيل VBA2 لتمكين كل هذه الوظائف مرة أخرى إلى المصنف الخاص بك.

VBA2:
Sub RecoverCopy ()
مع التطبيق
.OnKey "^ x"
.OnKey "^ c"
.CommandBars ("الخلية"). عناصر التحكم (1). ممكّن = صحيح
.CommandBars ("الخلية"). عناصر التحكم (2). ممكّن = صحيح
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يبدو أن هذا لم ينجح بالنسبة لي - هل يجب أن أحذف كود VBA الأصلي ثم ألصق ما ورد أعلاه لتمكين وظيفة القص والنسخ واللصق مرة أخرى؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
التعليق أعلاه VBA1in هو استبدال الكود الأصلي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
العزيز،

أريد تعطيل القص والنسخ واللصق في ورقة Excel 2007
هل يمكنك مشاركة رمز لهذا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
شكرا لك على تعليقك. أحاول اكتشاف الحل لبرنامج Excel 2007. يرجى الانتظار بصبر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
هل يمكن تعطيل "CUT" فقط؟ ولكن لا يزال بإمكاني استخدام النسخ واللصق؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كارميلو ،
يرجى نسخ ولصق الرمز أدناه في نافذة التعليمات البرمجية لـ Workbook في المصنف الخاص بك ثم حفظه كمصنف Excel Macro ممكّن. ثم سيتم تعطيل وظيفة "القص".

الخيار صريح
خاص WithEvents Cmbrs مثل CommandBars

مصنف فرعي خاص_ فتح ()
قم بتعيين Cmbrs = Application.CommandBars
نهاية الفرعية

مصنف فرعي خاص_Activate ()
إذا كان Application.CutCopyMode = 2 ثم
Application.CutCopyMode = 0
إنهاء حالة
نهاية الفرعية

Cmbrs_OnUpdate الفرعية الخاصة ()
إذا كنت ActiveWorkbook بعد ذلك
إذا كان Application.CutCopyMode = 2 ثم
Application.CutCopyMode = 0
MsgBox "تعطيل عمليات القص"
إنهاء حالة
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حاولت مثلما قلت لكن لم يحدث شيء. تريد بالضبط نفس الشيء ، فقط
تعطيل وظيفة "قص". أحتاج إلى تعطيل خيار "القطع" من خيار Rightclick buton ومن شريط الأدوات.
هل هو بلور ممكن ؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
الكود يعمل بشكل جيد في حالتي. هل لي أن أعرف إصدار Office الخاص بك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hi

أنا مبتدئ في رموز VBA وقد حل هذا الرمز 99٪ من مشاكلي.

هل من الممكن قفل الصفيحة المثقوبة (مع جرعة هذا الرمز) ولكن لا يزال لديك خلية واحدة غير مقفلة؟
(توضيح ، أود السماح بنسخ المعلومات في خلية واحدة فقط في الورقة المثقوبة).

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

اسم mJWSName العام كسلسلة

مصنف فرعي خاص_ فتح ()
mJWSName = "ورقة 2"
نهاية الفرعية

مصنف فرعي خاص_Activate ()
إذا كان ActiveSheet.Name = mJWSName ثم
Application.CutCopyMode = خطأ
Application.OnKey "^ c"، ""
Application.CellDragAndDrop = خطأ
إنهاء حالة
نهاية الفرعية

مصنف فرعي خاص_Deactivate ()
Application.OnKey "^ c"، ""
Application.CellDragAndDrop = صحيح
Application.CutCopyMode = خطأ
نهاية الفرعية


مصنف فرعي خاص_WindowActivate (ByVal Wn كنافذة)
إذا كان ActiveSheet.Name = mJWSName ثم
Application.CutCopyMode = خطأ
Application.OnKey "^ c"، ""
Application.CellDragAndDrop = خطأ
إنهاء حالة
نهاية الفرعية

Private Sub Workbook_WindowDeactivate (ByVal Wn كنافذة)
Application.OnKey "^ c"
Application.CellDragAndDrop = صحيح
Application.CutCopyMode = خطأ
نهاية الفرعية

Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object ، ByVal Target As Range)
على خطأ استئناف التالي
إذا كان Sh.Name = mJWSName ثم
Application.CutCopyMode = خطأ
إنهاء حالة
نهاية الفرعية

مصنف فرعي خاص _SheetActivate (ByVal Sh ككائن)
على خطأ استئناف التالي
إذا كان Sh.Name = mJWSName ثم
Application.OnKey "^ c"، ""
Application.CellDragAndDrop = خطأ
Application.CutCopyMode = خطأ
إنهاء حالة
نهاية الفرعية

مصنف فرعي خاص _SheetDeactivate (ByVal Sh ككائن)
Application.OnKey "^ c"
Application.CellDragAndDrop = صحيح
Application.CutCopyMode = خطأ
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سؤال أخير - أين يذهب هذا الرمز وكيف يتم تنفيذه؟ المشروع الذي يحتاج إلى العمل معه يرفق ملف XLA بورقة Excel التي تحتوي على الكثير من التعليمات البرمجية. لا أعرف ما إذا كان هذا يحتاج إلى الخوض في وحدة نمطية أو الكود وراء هذه الورقة. شكرًا...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتوجيهاتك أنا أحاول في المكتب 2013 ، لكن لم يتغير شيء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، الرمز يعمل بشكل جيد شكرا.
ومع ذلك ، تم تمكين خيار القراءة فقط. (إذا كنت لا تريد التعديل). إذا قمت بتعيين .. ملف ، حفظ باسم ، أدوات ، خيارات عامة ، يوصى بقراءة فقط .. ثم الكود لا يعمل.

شكرا مقدما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انها حقا تعمل بشكل جيد ، شكرا جزيلا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بفضل أنه يعمل بشكل مثالي .... هل يمكن تطبيقه على نطاق فقط بطريقة ما؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
آسف لا أستطيع مساعدتك في ذلك. مرحبًا بك لنشر أي سؤال في منتدانا: https://www.extendoffice.com/forum.html. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا سيدي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك مفيد جدا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قص ونسخ ولصق المصنف بأكمله المطبق. إذا كنت بحاجة إلى هذا الرمز فقط فأنا ورقة معينة فهل هذا ممكن ؟؟
الرجاء المساعدة. نحتاج فقط إلى ورقة واحدة لتعطيل الوظائف. ورقة أخرى نعمل بها جميع الوظائف ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز لا يعمل في Excel 2016 الخاص بي لورقة واحدة بدلاً من المصنف بأكمله
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يزال هذا يسمح باللصق من Notepad أو Microsoft Edge. الرجاء معرفة ما إذا كانت هناك طريقة لمنع اللصق من أي مصدر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
في حالة منع اللصق من أي مصدر ، نحتاج إلى منع ميزة "المفكرة" ، والتي قد تسبب الإزعاج. لا نوصي بهذا. آسف لا أستطيع مساعدتك في ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت هذا الرمز وأريد إعادة التمكين مرة أخرى؟ كيفية إعادة تمكينه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
استخدم هذا الرمز لتعطيل نسخ القص واللصق



مصنف فرعي خاص_Activate ()

Application.CutCopyMode = خطأ

Application.OnKey "^ c"، ""

Application.CellDragAndDrop = خطأ

نهاية الفرعية



مصنف فرعي خاص_Deactivate ()

Application.CellDragAndDrop = صحيح

Application.OnKey "^ c"

Application.CutCopyMode = خطأ

نهاية الفرعية



مصنف فرعي خاص_WindowActivate (ByVal Wn كنافذة)

Application.CutCopyMode = خطأ

Application.OnKey "^ c"، ""

Application.CellDragAndDrop = خطأ

نهاية الفرعية



Private Sub Workbook_WindowDeactivate (ByVal Wn كنافذة)

Application.CellDragAndDrop = صحيح

Application.OnKey "^ c"

Application.CutCopyMode = خطأ

نهاية الفرعية



Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object ، ByVal Target As Range)

Application.CutCopyMode = خطأ

نهاية الفرعية



مصنف فرعي خاص _SheetActivate (ByVal Sh ككائن)

Application.OnKey "^ c"، ""

Application.CellDragAndDrop = خطأ

Application.CutCopyMode = خطأ

نهاية الفرعية



مصنف فرعي خاص _SheetDeactivate (ByVal Sh ككائن)

Application.CutCopyMode = خطأ

نهاية الفرعية





وتريد تمكين هذه الوظيفة مرة أخرى
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل هذا بشكل رائع ، كيف يمكن تعديل هذا للسماح بالنسخ / اللصق في أعمدة محددة تحتوي على قوائم منسدلة مرتبطة بنطاقات محددة من المدخلات المقبولة والإدخال المقبول فقط. على سبيل المثال ، اسم Jetson ، جورج ، 25 عامًا ، سيسمح بنسخ / لصق من Jetson ، George ، 25 ولكن لن يسمح Jeston ، George ، 26. أو سحب وتعبئة ينتج عنها Jetson ، George ، 25 ثم 26 ، ثم 27 ، إلخ.
في ورقة العمل الخاصة بي ، أرغب في تعطيل القص / النسخ / اللصق تمامًا في أعمدة معينة ، ثم السماح فقط بنسخ النسخ المقطوعة من البيانات المقبولة من القوائم المنسدلة.
شكرا.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL