كيفية منع تحديد أوراق عمل متعددة في Excel؟

عند تحديد أوراق عمل متعددة عن طريق الخطأ والقيام بالتحرير، سيتم تغطية جميع الأوراق المحددة بنفس المحتوى. هنا نقدم لك طريقة لمنع تحديد أوراق عمل متعددة في نفس الوقت، وذلك لتجنب ظهور نفس المحتوى على هذه الأوراق.

منع تحديد أوراق عمل متعددة باستخدام كود VBA

منع تحديد أوراق عمل متعددة باستخدام كود VBA

يرجى اتباع الخطوات التالية لمنع تحديد أوراق عمل متعددة في نفس الوقت.

1. في ورقة العمل التي تحتاج إلى تعديلها، انقر بزر الماوس الأيمن على تبويب الورقة وحدد عرض الكود من قائمة النقر بزر الماوس الأيمن.

2. ثم قم بنسخ ولصق كود VBA أدناه في نافذة الكود الخاصة بنافذة Microsoft Visual Basic for Applications المنبثقة.

كود VBA: منع تحديد أوراق عمل متعددة في Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
 On Error GoTo err_handler
    If ActiveWindow.SelectedSheets.Count > 1 Then
        If ActiveSheet Is Target.Parent Then
            Application.EnableEvents = False
            MsgBox "Please don't make changes with multiple sheets selected.", _
            vbInformation, "Kutools for Excel"
            Application.Undo
            ActiveSheet.Select
        End If
    End If

err_handler:
Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

3. ثم اضغط على مفاتيح Alt + Q معًا لإغلاق نافذة Microsoft Visual Basic for Applications.

4. عند تحديد أوراق عمل متعددة مع الورقة الحالية، وإدخال المحتوى والضغط على مفتاح Enter، ستحصل على مربع حوار Kutools لـ Excel كما هو موضح في لقطة الشاشة أدناه لتذكيرك بتحديد أوراق عمل متعددة. يرجى النقر فوق زر موافق.

بعد النقر فوق زر موافق، سيتم فك تجميع جميع الأوراق المحددة على الفور.

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

• كيفية حذف جميع الأوراق باستثناء المحددة / الحالية في Excel؟
• كيفية إنشاء أوراق جديدة لكل صف في Excel؟
• كيفية حذف ورقة عمل بدون مطالبة أو تحذير في Excel؟