JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

اكسل ماكرو :اخفاء كل اوراق العمل ماعدا الورقة النشطة 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

وبهذا نكون قد انتهينا من كتابة هذا الكود السهل 
الاسمبريد إلكترونيرسالة