run userformبدون بازشدن فایل مبدا

[حسینعلی]

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

[ali.b]

سلام
به ایت تایپیک مراجعه کنید
انجمن اکســل ایران

[حسینعلی]

من نتونستم به نتیجه ای برسم،اساتید راهنمایی کنند من چطوری میتونم از داخل یک یوزر فرم ، یک یوزر فرم دیگری را از فایل دیگری فراخوان کنم ،
البته لاز به ذکراستکه این کار را کردم وتونستم به اجرا دربیارم ولی این درصورتیست که فایل دوم هم باز باشه،من چکارکنم فایل دیگری که میخوام یوزر فرمی را ازش فراخوان کنم وبسته است در حین بسته بودنش یوزر فرمش را در این فرم اول مشاهده کنم؟؟؟
اساتید راهنمایی کنند

[ali.b]

سلام
ببینید این ی نمونه هست براتون توضیح میدم
شما همه شیت های موجود در فایلتوت رو در نظر بگیرین
این کد رو در قسمت thisworkbook مربوط به واحد Vb وارد میکنید.
مثلا شما 5 شیت داری و یک فرم به نام user form1 خوب میخوای زمانی که فرم میاد کل فایل مخفی بشه اما حتما باید یک شیت فعال باشه. چون برای این روش نیاز هست یک شیت فعال باشه

Private Sub Workbook_BeforeClose(Cancel As Boolean)Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet4.Visible = xlSheetVeryHidden
Sheet5.Visible = xlSheetVeryHidden


Sheet1.Select
Application.DisplayAlerts = False
If Me.Saved = False Then Me.Save
Application.Quit
End Sub

تو این کد میگم از 5 شیتی که دارم اون 4تا شیت رو مخفی کن و شیت یک رو درنظر بگیر

دوباره کد زیر رو انتهای کد بالا کپی میکنی

Private Sub Workbook_Open()Application.Windows.Application.Visible = False
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet4.Visible = xlSheetVeryHidden
Sheet5.Visible = xlSheetVeryHidden


Sheet1.Select
UserForm1.Show
End Sub

و اینجا بعد از شیت 1 اسم فرم رو مینوسیی
کد زیر هم فایل رو بدون هیچ پیغامی موقع بسته شدن ذخیره میکنه

If Me.Saved = False Then Me.Save
Application.Quit

[ali.b]

خوب برای وقتی به فایلی ادرس میدین حتما باید باز باشه در غیر اینصورت توابع و کدها چطوری عمل کنن؟
شما در قسمت تالار ویژوال د رمورد ادرس دهی محیط Vb جستجو کنین و یک کد تعریف کنید که در صورت اجرای فرم این فایل از فلان ادرس باز بشه