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

[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]

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