كيفية إخفاء أوراق عمل محددة تلقائيا عند فتح ملف إكسيل؟ عن طريق VBA

كيفية إخفاء أوراق عمل محددة تلقائيا عند فتح ملف إكسيل؟

 

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

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

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

أدوات الإنتاجية الموصى بها

تبويب أوفيس : يمكنك جلب علامات التبويب المفيدة إلى إكسيل وبرامج أوفيس الأخرى، تماما مثل كروم و فيريفوكس و إنترنيت إكسبلورر الجديد. جرب الآن

كوتولس ل إكسيل : 200 ميزات جديدة ل إكسيل، وجعل اكسل سهلة وقوية بكثير، وزيادة الإنتاجية على الفور. جرب الآن

---

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

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

1 - اضغط باستمرار على مفاتيح ألت + F11 لفتح إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس .

2 - في الجزء ليف-بروجيكت-فابروجيكت انقر نقرا مزدوجا فوق ثيسوركبوك لفتح وحدة فارغة ثم قم بنسخ ولصق التعليمة البرمجية التالية في الوحدة النمطية:

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

1 2 3

"notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Private Sub Workbook_Open() بريفات سوب Workbook_Open () "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Sheets("Sheet5").Visible = False أوراق ("الورقة 5"). فيسيبل = فالس "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">End Sub إند سوب

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

3 - ثم قم بحفظ وإغلاق إطار التعليمات البرمجية هذا، وانقر فوق ملف > حفظ باسم لحفظ هذا المصنف بتنسيق المصنف تمكين إكسيل ماكرو ، راجع سكرينشوت:

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

---

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

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

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

2 - ثم اضغط باستمرار مفاتيح ألت + F11 لفتح إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس .

3 - في الجزء ليف-بروجيكت-فابروجيكت انقر نقرا مزدوجا فوق ثيسوركبوك لفتح وحدة فارغة ثم قم بنسخ ولصق التعليمة البرمجية التالية في الوحدة النمطية:

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

"notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Private Sub Workbook_BeforeClose(Cancel As Boolean) بريفات سوب Workbook_BeforeClose (إلغاء كما منطقية)    "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">'Updateby Extendoffice 20161206 'أوبديتبي إكستيندوفيس 20161206     "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Dim ws As Worksheet خافت وس كورقة عمل     "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">For Each ws In Worksheets لكل وس في أوراق العمل        "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">ws.Visible = xlSheetVisible ws.Visible = زلشيتفيسيبل     "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Next ws التالي وس "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">End Sub إند سوب "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Private Sub Workbook_Open() بريفات سوب Workbook_Open ()     "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Dim ws As Worksheet خافت وس كورقة عمل         "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">For Each ws In Worksheets لكل وس في أوراق العمل             "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then إذا كان وركشيت فونكتيون. كونتيف ([شيتستوهيد]، ws.Name)> 0 ثم                 "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">ws.Visible = xlSheetHidden ws.Visible = زلشيثيدن                 "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel" مسغبوكس ws.Name & "تم إخفاءه!"، فبينفورماتيون، "كوتولس فور إكسيل"             "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Else آخر                 "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">ws.Visible = xlSheetVisible ws.Visible = زلشيتفيسيبل             "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">End If إنهاء إذا         "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Next ws التالي وس     "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">Set ws = Nothing تعيين وس = لا شيء "notranslate" onmouseover="_tipon(this)" onmouseout="_tipoff()">"google-src-text" style="direction: ltr; text-align: left">End Sub إند سوب

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

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

---

أدوات الإنتاجية الموصى بها

تبويب أوفيس

يمكنك جلب علامات التبويب المفيدة إلى إكسيل وبرامج أوفيس الأخرى، تماما مثل كروم و فيريفوكس و إنترنيت إكسبلورر الجديد.

كوتولس ل إكسيل

رائعة حقا! زيادة الإنتاجية في 5 دقائق. لا تحتاج إلى أي مهارات خاصة، حفظ ساعتين كل يوم!

200 ميزات جديدة ل إكسيل، جعل اكسل بكثير سهلة وقوية:

• دمج الخلية / الصفوف / الأعمدة دون فقدان البيانات.
• الجمع بين وتوثيق جداول متعددة و المصنفات.
• مقارنة نطاقات، نسخ نطاقات متعددة، تحويل النص إلى التاريخ، وحدة وتحويل العملات.
• العد بالألوان، الترحيل الفرعي الفرعي، فرز متقدم وفائق تصفية،
• المزيد تحديد / إدراج / حذف / نص / تنسيق / رابط / تعليق / المصنفات / أدوات أوراق العمل ...

  

بتصرف مني شكرا على المتابعة