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