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

[majidartoor]

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

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

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

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

[Amir Ghasemiyan]

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

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

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

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

[majidartoor]

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

[Javid Mokhtari]

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

ThisWorkbook.FullName
ThisWorkbook.FullNameURLEncoded
ThisWorkbook.Name 

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

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

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

[majidartoor]

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

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

[Javid Mokhtari]

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

[majidartoor]

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

[Javid Mokhtari]

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

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

[majidartoor]

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

[Javid Mokhtari]

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

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