لاظهار او اخفاء ورقة عمل معينة

اظهار و اخفاء اوراق العمل عن طريق EXCEL VBA



لاخفاء ورقة العمل
Worksheets("Sheet1").visible = False
او
Worksheets("Sheet1").visible = xlSheetHidden



لاظهار ورقة العمل
Worksheets("Sheet1").visible = True
او
Worksheets("Sheet1").visible = xlSheetVisible



لاخفاء ورقة العمل اخفاء تام لا يمكن فتحه الا من خلال المطور
Worksheets("Sheet1").visible = xlSheetVeryHidden



لاظهار ورقة مخفية اخفاء تام
Worksheets("Sheet1").visible = xlSheetVisible



لاخفاء كل اورق العمل ما عدا الشيت المسمى omar
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "omar" Then
ws.Visible = xlSheetVeryHidden
End If
Next



لاظهار كل اورق العمل
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = xlSheetVisible
Next



لاخفاء كل اورق العمل ما عدا ورقة عمل المسماه Sheet1
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "Sheet1" Then
ws.Visible = xlSheetVisible
Else
ws.Visible = xlSheetVeryHidden
End If
Next