عدم نمايش شيت ها

[msoori]

با سلام خدمت دوستان
من فرمي را در محيط ويیوال بيسيك طراحي كردم حالا ميخوام كاربر با باز كردن فايل فقط فرمو ببينه! و اصلا شيتي مشاهده نشه . براي مخفي كردن شيت ها اقدام كردم ولي اكسل پيغام ميده كه حداق بايد يه شيت نشون داده بشه!
ممنونم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

دوست عزیز شما از کد زیر کمک بگیر

Private Sub Workbook_Open()
Application.Workbooks.Application.Visible = False
End Sub 

[msoori]

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

[Alireza]

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

[mokaram]

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

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

Private Sub Workbook_Open()
Application.Workbooks.Application.Visible = False
userform1.show
End Sub