كيفية تأمين موضع الورقة ليكون مرئيًا دائمًا في Excel Workbook؟

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

وضع قفل الورقة مع VBA

وضع قفل الورقة مع VBA

هنا أقدم لك رمزين من رموز VBA للتعامل مع هذه الوظيفة.

القفز إلى الورقة

1. صحافة ALT + F11 مفاتيح لتمكين مايكروسوفت فيجوال بيسك لويندوز.

2. انقر إدراج > وحدة، ثم انسخ الكود أدناه والصقه في البرنامج النصي.

فبا: انتقل إلى الورقة الرئيسية

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

ملاحظات: في شريحة الكود الأوراق ("الرئيسية").تنشيط، يمكنك تغيير الماجستير إلى أي اسم ورقة ما تحتاج إليه.

3. ثم احفظ هذا الرمز، ثم ارجع إلى المصنف، وانقر فوق المطور > وحدات الماكرو.

4. في ال الماكرو في مربع الحوار، حدد الاسم الرمزي الذي أدخلته للتو، وانقر فوق مزيد من الخيارات، أنشئ اختصارًا لتشغيل هذا الرمز.

5. انقر OK وإغلاق الماكرو الحوار.

من الآن، أثناء الضغط على الاختصار الذي قمت بإنشائه، سيتم تنشيط الورقة الرئيسية مهما كانت الورقة التي تستخدمها.

احتفظ بالورقة دائمًا في المقدمة

1. صحافة ALT + F11 مفاتيح لتمكين مايكروسوفت فيجوال بيسك لويندوز.

2. نقرتين متتاليتين ThisWorkbook من مشروع- VBAProject الجزء، ونسخ ولصق التعليمات البرمجية أدناه إلى البرنامج النصي.

VBA: احتفظ بالورقة دائمًا في المقدمة

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

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

ملحوظة: في الكود أعلاه، "رئيس" هو اسم الورقة الذي تريد أن يظل مرئيًا، قم بتغييره حسب حاجتك.