بازکردن فایل حاوی ماکرو درکنار فایلهای اکسل دیگر

[4017]

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

[امين اسماعيلي]

با درود
دچار چه مشکلی میشه - خب اگز مشکلی هست ببین اگر with activesheet در اخرش end with بزاری و کد ها تو بین این دو خط بزاری بازم مشکل داری

[4017]

با درود
دچار چه مشکلی میشه - خب اگز مشکلی هست ببین اگر with activesheet در اخرش end with بزاری و کد ها تو بین این دو خط بزاری بازم مشکل داری

ممنون از پاسختون
من يه فايل دارم كه موقع بالا اومدن فقط يه فرم بالا مياد و صفحه اكسل مربوط بهش نشون داده نميشه
در قسمت thisworkbook ماکرو گذاشتم که صفحه اکسل نشون داده نشه. اين كار تا وقتي خوب انجام ميشه كه يه فايل اكسل ديگه باز نباشه.كه اگه باز باشه با ارور مواجه ميشه یا اینکه اون فایل اکسلی که باز بوده رو هم مخفی میکنه. موقع بسته شدنش هم چون آتوسيو داره توش دوباره ارور ميده
نميدونم چيكار كنم كه فايلم كه باز ميشه با فايلهاي بازشده ديگه تداخل ايجاد نكنه

[~M*E*H*D*I~]

باید به صورت عمومی workbook رو مخفی نکنید بلکه مشخصا نام ورک بوک مورد نظر رو تعیین کنید

[4017]

باید به صورت عمومی workbook رو مخفی نکنید بلکه مشخصا نام ورک بوک مورد نظر رو تعیین کنید

چطوری میشه این کارو کرد؟اگه امکان داره یه مثال بزنید.

[Amir Ghasemiyan]

چطوری میشه این کارو کرد؟اگه امکان داره یه مثال بزنید.

همونطور كه مهدي عزيز گفت شما بايد عنوان فايل رو مشخص كنيد و از حالت كلي جلوگيري كنيد.
مثلا اينطوري:

Windows("Book1").Visible = False

دقت كنيد اگر در محيط vba جلوي عنوان فايل .xlsx يا هر پسوند ديگه اي نوشته شده باشه شما بايد اون رو داخل عنوان فايل ذكر كنيد

[4017]

ممنون از پاسختون
الان مشكل اينه كه كل فايل رو ميبنده. موقع باز شدن صفحه اكسل خالي ميشه و اگه بخوام دوباره بازش كنم كل اكسلو ميبنده
انگار فايل خراب شده
ارور method ميده

[Amir Ghasemiyan]

ممنون از پاسختون
الان مشكل اينه كه كل فايل رو ميبنده. موقع باز شدن صفحه اكسل خالي ميشه و اگه بخوام دوباره بازش كنم كل اكسلو ميبنده
انگار فايل خراب شده
ارور method ميده

كدي كه نوشتين رو قرار بدين اينجا

[4017]

كدي كه نوشتين رو قرار بدين اينجا

اينو تو قسمت this workbook نوشتم

Private Sub Workbook_Open()
With ActiveSheet
Application.ScreenUpdating = False
Application.WindowState = xlMaximized

Sheet7.Range("a1").Select
windows("kar.xlsm").Visible = False
UserForm33.Show
End With
End Sub 

[Amir Ghasemiyan]

اينو تو قسمت this workbook نوشتم

Private Sub Workbook_Open()
With ActiveSheet
Application.ScreenUpdating = False
Application.WindowState = xlMaximized

Sheet7.Range("a1").Select
windows("kar.xlsm").Visible = False
UserForm33.Show
End With
End Sub 

اين كد رو بايد بيرون with بذارين. بعد از end with بذارين بهتره

windows("kar.xlsm").Visible = False

[4017]

اين كد رو بايد بيرون with بذارين. بعد از end with بذارين بهتره

windows("kar.xlsm").Visible = False

بازم عملي نشد

[Amir Ghasemiyan]

بازم عملي نشد

فايلتون رو بذارين ببينم مشكلش چيه

[4017]

فايلتون رو بذارين ببينم مشكلش چيه

ممنون از توجه شما

[Amir Ghasemiyan]

ممنون از توجه شما

فايلتون كه مشكلي نداره دوست عزيز
با همون كدي كه عرض كردم مشكلش حل شد.
لطفا بيشتر دقت كنيد

[4017]

فايلتون كه مشكلي نداره دوست عزيز
با همون كدي كه عرض كردم مشكلش حل شد.
لطفا بيشتر دقت كنيد

ممنون از پاسختون
اما بازم وقتي يه فايل اكسل از قبل باز بوده باشه باهاش تداخل ايجاد ميكنه و شيتهاي اونو نمايش ميده