كيفية قفل أو تثبيت تبويب ورقة العمل في Excel؟

لنفترض أن لديك مصنفًا يحتوي على عدة أوراق عمل، وهناك ورقة عمل تُسمى Main-sheet كأول تبويب في المصنف. والآن، تريد محاولة قفل أو تثبيت هذا التبويب لجعله مرئيًا دائمًا حتى عند التمرير عبر عدد من الأوراق. في الواقع، لا يوجد طريقة مباشرة لتثبيت التبويب، ولكن يمكنك استخدام حل بديل للتعامل مع هذه المشكلة.

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

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

في Excel، يمكننا تطبيق الكود التالي لـ VBA لجعل ورقة العمل المحددة دائمًا قبل تبويب الورقة التي قمت بالنقر عليها حاليًا، بحيث يمكنك دائمًا رؤية هذه الورقة عند التمرير عبر أي علامات تبويب أخرى. الرجاء اتباع الخطوات التالية:

1. اضغط باستمرار على مفاتيح ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

2. ثم اختر ThisWorkbook من جزء Project Explorer على اليسار، انقر عليه مرتين لفتح الوحدة النمطية، وبعد ذلك انسخ والصق الكود التالي لـ VBA في الوحدة النمطية الفارغة:

كود VBA: تجميد أو قفل تبويب ورقة عمل محددة

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Update by Extendoffice
Application.EnableEvents = False
Application.ScreenUpdating = False
If Application.ActiveSheet.Index <> Application.Sheets("Main-sheet").Index Then
    Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.ActiveSheet.Index)
    Application.Sheets("Main-sheet").Activate
    Sh.Activate
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

3. وبعد ذلك احفظ وأغلق هذا الكود، الآن عندما تنقر على أي من علامات تبويب الورقة الخاصة بك، ستكون هذه الورقة المحددة دائمًا في مقدمة التبويب الذي نقرت عليه، انظر إلى لقطات الشاشة:

ملاحظة: في الكود أعلاه، Main-sheet هو اسم الورقة التي تريد تجميدها، ويمكنك تغييره حسب حاجتك.

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

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

كيفية تجميد الأجزاء في Excel 2010؟

كيفية تطبيق تجميد / إلغاء تجميد الأجزاء على عدة أوراق عمل دفعة واحدة؟