hide شیت

[aabbasi4790]

سلام برای un hide شدن کل شیتها این کدvba رو دارم

     Sub unhideing()
For Each sh In Worksheets
    sh.Visible = True
Next
End Sub 

حالا میخوام برای hide کردن شیتی با نام مشخص کد vba داشته باشم
زحمت شما

[amir_ts]

با سلام
این کد رو تست کنید.برای مخفی کردن شیتی به نام admin استفاده شده است.

[LEFT]
[COLOR=#0000cd]   Sub hideadmin ()[/COLOR]
[COLOR=#0000cd]dim ws as worksheet[/COLOR]
[COLOR=#0000cd]for each ws in  thisworkbook.worksheets
if left(ws.name,5)="admin" then
ws.visible = xlsheethidden
end if
next ws
end sub[/COLOR][/LEFT]

[aabbasi4790]

ضمن تشکر از امین عزیز
به همون روش unhide میشه hide رو انجام داد فقط باید به جای true از false استفاده کرد

     Sub hideing()
For Each sh In Worksheets
    sh.Visible = false
Next
End Sub 

فقط برای مشخص کردن نام شیتها باید توخط دوم به جای Worksheets از

sheets(array("sheet1","sheet2",...)) 

استفاده کرد