amr atef eid قام بنشر مارس 3, 2022 مشاركة قام بنشر مارس 3, 2022 تنسيط اوراق عمل محددة بناء على الضغط عمل محددة.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مارس 3, 2022 أفضل إجابة مشاركة قام بنشر مارس 3, 2022 Private Sub Worksheet_Activate() Dim e, ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> Me.Name Then ws.Visible = xlSheetVeryHidden End If Next ws For Each e In Array("1", "2") Worksheets(e).Visible = xlSheetVisible Next e End Sub 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.