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

[payam]

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

[komeilex]

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

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

[payam]

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

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

[miladman88]

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

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

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

[Javid Mokhtari]

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

سلام
در این صورت اگر کسی بیاید و دوباره راست کلیک کند و 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 مخفی شده حالا با این کد نمایش داده میشه....

[LEFT]
Sub test()
Sheet2.Visible = True
End Sub
[/LEFT]

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