كيف يمكن إخفاء أوراق العمل المحددة تلقائيًا عند فتح ملف Excel؟
إذا كنت ترغب في إخفاء بعض أوراق العمل المحددة تلقائيًا بمجرد فتح أي شخص للمصنف، فكيف يمكنك تنفيذ هذه المهمة في Excel؟
إخفاء ورقة عمل محددة تلقائيًا عند فتح مصنف باستخدام كود VBA
إخفاء بعض أوراق العمل المحددة تلقائيًا عند فتح مصنف باستخدام كود VBA
إخفاء ورقة عمل محددة تلقائيًا عند فتح مصنف باستخدام كود VBA
إذا كنت ترغب في إخفاء ورقة عمل معيّنة عند فتح المصنف، يمكنك استخدام كود VBA التالي.
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.
2. في جزءProject-VBAProject الموجود على اليسار، انقر مرتين علىThisWorkbook لفتح وحدة (Module) فارغة، ثم انسخ والصق الكود التالي في الوحدة:
كود VBA: إخفاء ورقة محددة عند فتح مصنف:
Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub
ملاحظة: في الكود أعلاه، اسم الورقة التي تريد إخفاءها عند الفتح هوSheet5. يُرجى تغييره وفقًا لاحتياجاتك.
3. بعد ذلك، اخترملف > حفظ باسملحفظ هذا المصنف بصيغةمصنف Excel المُفعّل بالماكرو. انظر لقطة الشاشة:
4.عند فتح هذا المصنف في المرة القادمة، انقر أولًا على زرتمكين المحتوى، وسيتم إخفاء الورقة المحددة تلقائيًا بعد ذلك.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
إخفاء بعض أوراق العمل المحددة تلقائيًا عند فتح مصنف باستخدام كود VBA
إذا كنت بحاجة إلى إخفاء عدة أوراق عمل تلقائيًا عند فتح المصنف، فهناك كود آخر يمكنه مساعدتك.
1. أولًا، أدرج أسماء الأوراق التي تريد إخفاءها عند الفتح في قائمة داخل ورقة عمل، ثم انتقل إلى مربعالاسموأنشئ لها اسم نطاق (Range Name) وهو: SheetsToHide، واضغط مفتاحEnter. انظر لقطة الشاشة:
2. بعد ذلك، اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.
3. في جزءProject-VBAProject الموجود على اليسار، انقر مرتين علىThisWorkbook لفتح وحدة (Module) فارغة، ثم انسخ والصق الكود التالي في الوحدة:
كود VBA: إخفاء بعض أوراق العمل المحددة عند فتح مصنف:
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 المُفعّل بالماكرو. من الآن فصاعدًا، عند فتح هذا المصنف في المرة القادمة، سيتم إخفاء أوراق العمل المحددة تلقائيًا.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل