فراخواندن اکسلی دیگر از فرم [بایگانی]

majidartoor

2014/08/26, 19:50

با سلام
آقا من با کد زیر یه ورک بوک دیگرو(kol.xlsm) از فرم فرامیخونم...

Dim ADDRESS As String
ADDRESS = ThisWorkbook.Path
Workbooks.Open (ADDRESS + "\kol.xlsm")

ولی وقتی ورک بوک (kol.xlsm) باز میشه قابل ویرایش نیست،مثلا نمیتونم با کیبورد چیزی توش تایپ کنم.
دلیلش چیه؟

Amir Ghasemiyan

2014/08/26, 21:07

با سلام
آقا من با کد زیر یه ورک بوک دیگرو(kol.xlsm) از فرم فرامیخونم...

Dim ADDRESS As String
ADDRESS = ThisWorkbook.Path
Workbooks.Open (ADDRESS + "\kol.xlsm")

ولی وقتی ورک بوک (kol.xlsm) باز میشه قابل ویرایش نیست،مثلا نمیتونم با کیبورد چیزی توش تایپ کنم.
دلیلش چیه؟

سلام دوست عزيز
شما بدون كد فايل رو كه باز ميكني مشكلي نداري؟
پسوردي براش ست نشده؟
پيغامي برات نمياد كه بگه ماكرو رو فعال كن؟

majidartoor

2014/08/26, 22:08

بدون کد که فایلو باز میکنم هیچ مشکلی نداره.
پسوردی هم براش ست نکردم،پیغامی هم نمیده.

Javid Mokhtari

2014/08/26, 23:56

شما چرا از کدهای

ThisWorkbook.FullName
ThisWorkbook.FullNameURLEncoded
ThisWorkbook.Name
استفاده نمیکنین.
برای مثال:

Workbooks.Open (ThisWorkbook.FullName)
Workbooks.Open (ThisWorkbook.FullNameURLEncoded)

من تست کردم مشکلی نبود.
میشه فایلو بذارین ...؟
فایلتون که با Read Only ذخیره نشده ...!!؟

majidartoor

2014/08/27, 09:55

امتحان کردم بازم نشد.
اینم فایلم.

http://s5.picofile.com/file/8137306950/majid.rar.html

Javid Mokhtari

2014/08/27, 11:40

فایل kol ایراد داره.با نامی دیگر Save As کنید حل میشه.بعد از Save As کردن دوباره میتونید به نام kol برگردونید.

majidartoor

2014/08/27, 12:21

انجام دادم بازم نشد.

Javid Mokhtari

2014/08/27, 13:13

انجام دادم بازم نشد.

هنگامی که نام kol رو عوض می کنید تو کد هم عوض میکنید...؟
من انجام دادم مشکلی نبود ...
شاید یه جایی دارین اشتباه می کنید :confused:

majidartoor

2014/08/27, 13:43

آره تو کد هم عوضش کردم،اگه رو فایل من تصحیحش کردید لطفا آپلود کنید.
ممنون از توجهتون.

Javid Mokhtari

2014/08/27, 13:55

مشکل یوزرفرمتون هست .
به شکل زیر بنویسید:

Dim ADDRESS As String
ADDRESS = ThisWorkbook.Path
Me.Hide
Workbooks.Open (ADDRESS + "\kol.xlsm")

majidartoor

2014/08/27, 17:54

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

majidartoor

2014/08/31, 22:56

سلام دوستان
طبق فایلی که پیوست کردم،از فرمی که در ورک بوک فروشگاه (forooshgah.xlsm) وجود داره،ورک بوک کل (kol.xlsm) رو باز میکنم،
سوالم اینه که با چه کدی میتونم از ورک بوک کل برگردم به فرمم؟
یعنی وقتی باتون خروج رو که در فایل کل (kol.xlsm) وجود داره زدم ورک بوک کل (kol.xlsm) کاملا بسته بشه و برگرده به فرم فروشگاهم.

http://s5.picofile.com/file/8138195834/majid.rar.html

majidartoor

2014/09/01, 20:39

دوستان اگه سوالم روشن نیست بگید.
اگه هم خیلی سوالم ابتداییه بازم بگید.
بی تفاوت رد نشید...

Javid Mokhtari

2014/09/01, 22:21

سلام دوستان
طبق فایلی که پیوست کردم،از فرمی که در ورک بوک فروشگاه (forooshgah.xlsm) وجود داره،ورک بوک کل (kol.xlsm) رو باز میکنم،
سوالم اینه که با چه کدی میتونم از ورک بوک کل برگردم به فرمم؟
یعنی وقتی باتون خروج رو که در فایل کل (kol.xlsm) وجود داره زدم ورک بوک کل (kol.xlsm) کاملا بسته بشه و برگرده به فرم فروشگاهم.

http://s5.picofile.com/file/8138195834/majid.rar.html
خب دوست عزیز برعکس اون کدی رو که برای مخفی شدن نوشتی برا نمایش بنویس دیگه ...
تو شیت kol ، ماکرو "خروج" کد زیر رو بنویسید...:

Dim ADDRESS As String
ADDRESS = ThisWorkbook.PathWorkbooks.Open (ADDRESS + "\Forooshgah.xlsm")
Application.Quit

Javid Mokhtari

2014/09/01, 22:25

دوستان اگه سوالم روشن نیست بگید.
بی تفاوت رد نشید...
هیچکس بی تفاوت رد نمیشه ...:stop: