پنهان کردن شیتها

**hasa2** · 2019/02/11, 19:44

کدهای زیر را در This Workbook قرار دهید :

کد:

Private Sub Workbook_Open()
   
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden

End Sub





Private Sub Workbook_BeforeClose(Cancel As Boolean)




Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden



End Sub

سپس برای نمایش هرکدام از شیت ها در VBA از کد زیر (با توجه به نام شیت در VBA) استفاده کنید :

کد:

Sheet1.Visible = xlSheetVisible

**kazem1359** · 2019/02/11, 23:18

ممنون تشکر

**s.313** · 2019/02/12, 18:03

نوشته اصلی توسط hasa2

کدهای زیر را در This Workbook قرار دهید :

کد:

Private Sub Workbook_Open()
   
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden

End Sub





Private Sub Workbook_BeforeClose(Cancel As Boolean)




Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden



End Sub

سپس برای نمایش هرکدام از شیت ها در VBA از کد زیر (با توجه به نام شیت در VBA) استفاده کنید :

کد:

Sheet1.Visible = xlSheetVisible

سلام. میشه بگید چرا من هر کدی رو وارد محیط vba میکنم اعمال نمیشه؟ وقتی هم که فایلمو میبندم و دوباره باز میکنم کدها دیگه نیستن!!

**حسام بحرانی** · 2019/02/12, 19:17

سلام
فایل هایی که دارای کد vba هسند را می بایست با فرمت xlsm ذخیره کنید.
موفق باشید.

**kazem1359** · 2019/02/12, 20:27

سلام ببخشید بنده در This Workbook کد دیگری هم بابت بسته شدن اکسل دارم و وقتی کد پنهان سازی شیت را قرار میدم خطا میده و اجرا نمیشه چه باید کرد . ممنون

**hasa2** · 2019/02/13, 09:01

شما باید این کدها رو هم در بین اونها قرار بدید.
اگر متوجه نشدید ؛ کدی که در حال حاضر تو بخش this workbook دارید رو اینجا قرار بدید تا راهنمایی تون کنم

**kazem1359** · 2019/02/13, 18:21

سلام دو کد زیر هستش:

Private Sub Workbook_Open()

Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden

End Sub

و

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Saved = True
Application.Quit

End Sub

**kazem1359** · 2019/02/14, 01:15

سلام ممنون عمل کرد ولی یک مشکل پیش میاد اگر برای یک شیت ماکرو داشته باشیم که متصل به دیگر شیتها باشه و با اجرا کد داده شده ماکروها عمل نمی کنه ایا میشه این مشکل را هم برطرف کرد.

**s.313** · 2019/02/14, 03:57

نوشته اصلی توسط حسام بحرانی

سلام
فایل هایی که دارای کد vba هسند را می بایست با فرمت xlsm ذخیره کنید.
موفق باشید.

متشکرم

**kazem1359** · 2019/02/15, 16:26

سلام استاد عزیر فایل زیر را بررسی کنید بنده کد پنهان سازی شیتها را قرار داده ام و طی بحث قبلی وقتی می خوام ماکرو دکمه ورود اجرا بشه خطا میده لطفا راهنمایی کنید

eftetahe hesab2222

http://s8.picofile.com/file/8352328176/eftetahe_hesab2222.zip.html