اخفاء الصفحات تلقائيا

[تامر خليفه]

مرحبا للجميع

عندي ملف اكسيل به صفحه رئيسيه بها اسماء جميع الموظفين

وفي الملف لكل موظف صفحه خاصه به وببياناته

اريد عندما اقف في صفحه موظف يقوم الاكسيل باخفاء باقي الصفحات ماعدا الصفحه النشطه و الصفحه الرئيسيه

وعندما ارجع للصفحه الرئيسيه يخفي كل الصفحات

[ابراهيم الحداد]

السلام عليكم ورحمة الله

انسخ الكود التالى و الصقة فى حدث thisworkbook و غير اسم اسم الورقة الرئيسية "Main" فى الكود ذاته

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name = "Main" Or Sh.Name = ActiveSheet.Name Then
Sh.Visible = xlSheetVisible
Else
Sh.Visible = xlSheetHidden
End If
Next
End Sub

 

[تامر خليفه]

معني كده اني  لازم  انسخ  الكود ده في كل  الصفحات ؟؟؟😲

[ابراهيم الحداد]

السلام عليكم ورحمة الله

طبعا لا و لكن كما اخبرتك يوضع فى فى حدث thisworkbook

و لمرة و احدة فقط و سيسرى هذا الكود على جميع الاوراق الحالية و اللاحقة 

[تامر خليفه]

اسف لازعاج حضرتك

ده مرفق يا ريت حضرتك تجرب عليه

اخفاء واظهار.xlsx

[ابراهيم الحداد]

السلام عليكم ورحمة الله

تفضل

 

اخفاء واظهار.xlsm

[تامر خليفه]

الف شكره اخي الفاضل

[karijoseph]

شكرا كثيرا ورمضان مبارك