مخفی کردن شیتها در اکسل

[payam]

با درود
خواستم بدونم آیا در اکسل میتونیم کاری کنیم که همه شیتها غیر از یکی مخفی بشن؟اگه میشه توضیح بدید لطفا.
سپاسگزار

[komeilex]

دوست عزیز اگر امکانش هست منظرتون رو واضح تر بگید.
مسلما هر شیتی رو که شما دلتون بخواد می تونین مخفی کنین و هر کدوم رو هم که خواستین نگه دارین. اگه منظورتون اینه؛ خوب روی شیتی که می خواین مخفیش کنین راست کلیک کنین و گزینه hide رو انتخاب کنین. با رفتن به محیط vb و انتخاب شیت مورد نظر و با رفتن به پنجره properties و انتخاب گزینه visible هم میتونین این کارو انجام بدین.

[payam]

سپاس دوست گرامی.همین بود.ولی نمیدونم چرا قبلس امتحان نکردم.به هر حال سپاسگزارم.

[miladman88]

دوست عزیز اگر امکانش هست منظرتون رو واضح تر بگید.
مسلما هر شیتی رو که شما دلتون بخواد می تونین مخفی کنین و هر کدوم رو هم که خواستین نگه دارین. اگه منظورتون اینه؛ خوب روی شیتی که می خواین مخفیش کنین راست کلیک کنین و گزینه hide رو انتخاب کنین. با رفتن به محیط vb و انتخاب شیت مورد نظر و با رفتن به پنجره properties و انتخاب گزینه visible هم میتونین این کارو انجام بدین.


سلام
در این صورت اگر کسی بیاید و دوباره راست کلیک کند و UNHIDE را بزند فعال می شود
چه کاری می شود که به غیر از خودتان کسی دیگر نتواند آنرا بیاورد
با تشکر

[Javid Mokhtari]

سلام
در این صورت اگر کسی بیاید و دوباره راست کلیک کند و UNHIDE را بزند فعال می شود
چه کاری می شود که به غیر از خودتان کسی دیگر نتواند آنرا بیاورد
با تشکر


در اینصورت باید کد نویسی کنید یا اینکه فایلتون رو بعد از مخفی کردن شیت ها ، ProtectWorkbook کنید.

[aminkarami]

با سلام
پیرو موضوع تاپیک می خواستم بدونم چطور میشه با برنامه نویسی همه شیت های اکسل رو به جز یک شیت به خصوص پنهان نمود؟؟؟

[Amir Ghasemiyan]

با سلام
پیرو موضوع تاپیک می خواستم بدونم چطور میشه با برنامه نویسی همه شیت های اکسل رو به جز یک شیت به خصوص پنهان نمود؟؟؟

سلام دوست عزیز
این کد کمکتون میکنه


Sub hide_sheets()
Dim shet As Worksheet
For Each shet In ActiveWorkbook.Worksheets
If shet.Name <> "Sheet3" Then shet.Visible = xlSheetHidden
Next
End Sub

[reza rad]

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

[amir_ts]

با سلام

فرض کنید شیت 2 مخفی شده حالا با این کد نمایش داده میشه....


Sub test()
Sheet2.Visible = True
End Sub



یا کلید Alt+F11 رو بزنید روی اسم شیت مخفی قرار بگیرید بعد در قسمت چپ پایین(properties) آخرین گزینه که visable هست رو مقابلش از لیست سه تایی گزینه -1-xlsheetvisable رو انتخاب کنید.