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

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

إخفاء ورقة عمل معينة تلقائيًا عند فتح مصنف برمز VBA

إخفاء بعض أوراق العمل المحددة تلقائيًا عند فتح مصنف برمز VBA

---

إخفاء ورقة عمل معينة تلقائيًا عند فتح مصنف برمز VBA

إذا كنت تريد إخفاء ورقة عمل واحدة محددة عند فتح المصنف ، فيمكنك تطبيق التعليمات البرمجية لـ VBA التالية.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في اليسار مشروع- VBAProject الجزء ، انقر نقرًا مزدوجًا فوق ملف ThisWorkbook لفتح وحدة فارغة ، ثم انسخ الكود التالي والصقه في الوحدة النمطية:

كود فبا: إخفاء ورقة معينة عند فتح مصنف:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

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

3. ثم احفظ وأغلق نافذة الشفرة هذه ، وانقر قم بتقديم > حفظ باسم لحفظ هذا المصنف باسم مصنف Excel ممكن بماكرو التنسيق ، انظر لقطة الشاشة:

4. عند فتح هذا المصنف في المرة القادمة ، الرجاء النقر فوق تمكين المحتوى الزر أولاً ، ثم سيتم إخفاء ورقة التحديد تلقائيًا.

---

إخفاء بعض أوراق العمل المحددة تلقائيًا عند فتح مصنف برمز VBA

إذا كانت هناك أوراق عمل متعددة يلزم إخفاؤها عند فتح المصنف ، فإليك أيضًا رمز يمكن أن يساعدك.

1. أولاً ، يجب عليك سرد أسماء الأوراق التي تريد إخفاءها عند الفتح في قائمة بورقة عمل ، ثم الانتقال إلى مربع الاسم لمنحهم اسم النطاق-SheetsToHide، و اضغط أدخل مفتاح ، انظر لقطة الشاشة:

2. ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. في اليسار مشروع- VBAProject الجزء ، انقر نقرًا مزدوجًا فوق ملف ThisWorkbook لفتح وحدة فارغة ، ثم انسخ الكود التالي والصقه في الوحدة النمطية:

كود فبا: إخفاء بعض أوراق العمل المحددة عند فتح مصنف:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

ملاحظة: في الكود أعلاه ، SheetsToHide هو اسم النطاق الذي قمت بإنشائه في الخطوة 1.

4. ثم احفظ وأغلق نافذة الشفرة هذه ، وانقر قم بتقديم > حفظ باسم لحفظ هذا المصنف باسم مصنف Excel ممكن بماكرو شكل. من الآن فصاعدًا ، عند فتح هذا المصنف في المرة القادمة ، سيتم إخفاء أوراق العمل المحددة تلقائيًا.