بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
كيفية اخفاء كل اوراق العمل ماعدا الورقة النشطة
فى كثير من الاحيان اثناء عملنا على ملف اكسل معين وبة عدد كبير من الصفحات ونريد اخفاء جميع الصفحات التى فى الملف ماعدا الورقة النشطة .
نقوم بكتابة هذا الكود السهل والبسيط وهو سيقوم بهدا العمل نيابة عنك
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
وبهذا نكون قد انتهينا من كتابة هذا الكود السهل
بارك الله في حضرتك وجزالك الله كل خير عما تقدمة لنا والله بنستفيد من شروحاتك ربنا يوفقك يا استاذ عماد
ردحذف