مطلوب كود اعادة تفعيل مشاركة الملف

[خالد القدس]

الاساتذة الاجلاء   ..السلام عليكم ورحمة الله , ان شاء الله الجميع بخير وعلى احسن  حال ..تعلمت منكم الكثير  فجزاكم الله خير الجزاء  

وارجو المساعدة في هذا  الكود  الذي يقوم في البداية بالغاء تفعيل مشاركة الملف ---  والمطلوب اعادة تفعيل المشاركة في نهاية الكود لو امكن 

Sub akhq()
    ActiveWorkbook.ExclusiveAccess
    Sheets("Data").Select
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Columns("A:B").Select
    Columns("A:C").Select
    Selection.EntireColumn.Hidden = True
    Columns("F:O").Select
    Selection.EntireColumn.Hidden = True
    Columns("Q:U").Select
    Selection.EntireColumn.Hidden = True
    Range("P2").Activate
End Sub

 

 

 

 

[عبدالفتاح في بي اكسيل]

اخي  الكريم  على  الرغم  انه  ليس  لدي  تجربة  في  مشاركة  الملفات  ولكن  من  الكود  لا  يوجد  دليل   الملف  الذي  تم  مشاركته

عموما  جرب  هذا  السطر    

ActiveWorkbook.SaveAs FileName, , , , , , xlShared

يجب  الاعلان عن متغير  لدليل  الملف   ثم  تقوم بتعيينه 

[خالد القدس]

كود اكثر من رائع   

بس لما استخدمته  هكذا   ActiveWorkbook.xlShared    بيجيب رسالة لحفظ الملف  

اذا كان اسم الملف هو 2021  ومسار حفظه هو C:\Users\kj\Desktop\WOW

كيف يكون الكود بحيث ما يجيب رسالة حفظ  

مع خالص الشكر والتقدير وجزاك الله الجزاء وزادك من فضله

[أ / محمد صالح]

أخي الكريم @خالد القدس

لقد أخبر ك الأستاذ عبد الفتاح أنه يجب وضع مسار واسم الملف في متغير باسم filename ثم استعمال الكود السابق

وبناء عليه يكون الكود هكذا كاملا وهذا دورك في استنتاجه

dim FileName as strring
FileName = "C:\Users\kj\Desktop\WOW\2021.xlsx"
ActiveWorkbook.SaveAs FileName, , , , , , xlShared

ملاحظتي الشخصية:

معظم الاستفسارات ناتجة من أن بعض الأصدقاء لا يصبرون على التعلم وقراءة الموضوعات السابقة والبحث في المنتدى ومحاولة فهم الأكواد والمعادلات التي يعرضها عليهم غيرهم.

بالتوفيق للجميع

[خالد القدس]

صدقت استاذي الفاضل محمد صالح   ---  فعدم  الصبر على التعلم من مشاركات الاساتذة الخبراء هي مشكلتنا الكبرى 

الف شكر على المشاركة التى شفت ووصفت الدواء  واوضحت الدواء  

[أ / محمد صالح]

بالتوفيق 

لا تنس اختيار أفضل إجابة

والإعجاب بالمشاركات المفيدة لك