اكسل ماكرو :اخفاء كل اوراق العمل ماعدا الورقة النشطة VBA in Excel -Hide all Worksheets but the Active Worksheet

بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس

كود جديد من مكتبة اكواد اكسل vba 

كيفية اخفاء كل اوراق العمل ماعدا الورقة النشطة

 

فى كثير من الاحيان اثناء عملنا على ملف اكسل معين وبة عدد كبير من الصفحات ونريد اخفاء جميع الصفحات التى فى الملف ماعدا الورقة النشطة .

نقوم بكتابة هذا الكود السهل والبسيط وهو سيقوم بهدا العمل نيابة عنك 

hideallworksheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If
Next ws
End Sub

وبهذا نكون قد انتهينا من كتابة هذا الكود السهل 
Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

  1. بارك الله في حضرتك وجزالك الله كل خير عما تقدمة لنا والله بنستفيد من شروحاتك ربنا يوفقك يا استاذ عماد

    ردحذف