با درود
خواستم بدونم آیا در اکسل میتونیم کاری کنیم که همه شیتها غیر از یکی مخفی بشن؟اگه میشه توضیح بدید لطفا.
سپاسگزار
خواستم بدونم آیا در اکسل میتونیم کاری کنیم که همه شیتها غیر از یکی مخفی بشن؟اگه میشه توضیح بدید لطفا.
سپاسگزار
Sub hide_sheets()
Dim shet As Worksheet
For Each shet In ActiveWorkbook.Worksheets
If shet.Name <> "Sheet3" Then shet.Visible = xlSheetHidden
Next
End Sub
[LEFT] Sub test() Sheet2.Visible = True End Sub [/LEFT]
کامنت