باز شدن شیت خاص در هنگام باز شدن برنامه

[bakhshism]

سلام به دوستان من یک برنامه دارم که دارای 3 شیت است و بوسیله کد، شیت 2 و 3 رو مخفی کردم و بوسیله کد از شیتی به شیت دیگری می رم منتها مشکل اینجاست که اگر کسی به عنوان مثال در شیت 2 برنامه رو ببنده در هنگام باز کردن شیت 2 باز میشه هدف من اینه حتی با این شرایط در هنگام باز کردن برنامه همه شیتها به غیر از شیت 1 مخفی بشه با تشکر

[mokaram]

کد زیر را تو قسمت beforeclose ورک بوک بنویس

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet1.Visible = xlSheetVisible
Sheet1.Activate
Sheet2.Visible = xlSheetHidden
Sheet3.Visible = xlSheetHidden
End Sub

[bakhshism]

دستت درد نکنه موفق باشی